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; 1 1 MODULE a troy ( 

$ § § IDENT='V04-000' 

; ADDRESSING. MODE (EXTERNAL=GENERAL, 

; $ 4 NONEXTERNAC=LONG_RELATIVE) 

: § 0 $ 1 BEGIN 

; : 0 8 1: 

3 10 484 \ aaa aaah aaah eaninhiehiniadi? 
: 11 0011 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; iF Oe 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. “ 
; i Biz : i. ALL RIGHTS RESERVED. : 
: 15 0015 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 16 Boi$ 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 17 01 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 31 8 , : i: TRANSFERRED. : 
; ¢ 00 § 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
é 00 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; : 8 : : i: CORPORATION. ‘ 
: 6 80 $ 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: si + 3 \ i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
@ . ® 
° 9 80 9 1 ta ® 
3 ° ts : pSeeeqaaneseeseqenseenogqereeaneeseeaeegsereqeneceneenaeensaeceeeneqeqsenes 
; 0032 1! 

; : O38 1 !e¢ 

; 4 Oe 1! 

3 5 te : : FACILITY: File dump utility 

; 37 37} | apstRact: 

3 3 $3 ' This module contains the routines that dump file headers. 

: 40 040 1 ' ENVIRONMENT: 

: a soy ' VAX native, user mode. 

; re 068 1 lee 

: 4&4 a ¥3 

: #2 bee : AUTHOR: Martin L. Jack CREATION DATE: 16-Aug-1981 

° | H rtin e : = - 

A 47 049 1! “ - “e 

; $8 8 \ : MODIFIED BY: 

> 650 20 1: V03-006 LMPO176 L. Mark Pilant 6-Dec-1983 9:52 

; (51 tine Use the correct display width in the call to SFORMAT_ACL. 

3 26 26 1! Also, fix a bug in the code that displays the file name 

3 54 37 ' : extension. 

: 455 55 1: vO3-005 LMPO128 L. Mark Pilant, 13-Jul-1983 11:56 

; 28 538 : Track changes made to SFH2DEF and friends. 


ee ee ee ee ee ee ee ee ee ee ee ee oe ee 


QUNPBAE ADER 1$-$ep-1964 01:50:28 YAN Bl iss-32 v4.0-742_ 


; 8 58.1! v03-004 LMP0100 L. Mark Pilant 14-Apr-1983 8:47 
: 28 035 ! Convert to the new system service $F ORMAT “acc. . 

> 61 061 1! v03-003 ACG0325 Andrew C. Goldstein,  4-Apr-1983 17: 

; ° +f ! } Fix file header area Length check ! e te 
64 064 1! v03-002 LMP00SO k Pilant, Oct-1982 12:5 
: 65 0066 : } Add the ability to an the ACL if it satura, . 
: €5 bee 13 v03-001 MLJ0090 Martin L. Jack, 6-May-1982 7:52 

: $8 0969 1 } pets clobbering checksum word for blocks that are not file 
ERR BEY vosns aston urein Ls seks 1efebe982 16:0 

3 : = t ‘ P - - H 

? 007 | ne PATSW_GBC. artin L. Jac eb 6:0 

>: 7% 0074 1! V03-002 MLy0045 Martin L. Jack, 12-Sep-1981 17:00 

: a? Bot? ! Allow file header dump for cane ™ 

: #77 0077 1! V03-001 MLJ0041 Martin L. Jack, 3-Sep-1981 21:33 

; 0078 1! Add FCH$V_ERASE. 

79 0079 : 
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Write Line buffer 
Format information and write buffer 


8 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
2 i REQUIRE ‘SRC$:DUMPRE'; 
5 
Hy 0 FORWARD ROUTINE 
1 DUMPSHEADER: NOVALUE, ! Dump header(s) for current input file 
88 ¢ CHECK_HEADER, ' Validate file header 
89 DUMPSFAO_: NOVALUS « Format information into Line 
( 


DUMPSEOL? NOVALU 
DUMPS$PUT_FAO_: NOVALUE, 
FORMAT _BIT_STRING: 


NOVALUE, Format a bit string 
FORMAT_CODED_VALUE : 

NOVALUE, ! Format a coded value 
FORMAT_DATE_VALUE : 

NOVALUE, ! Format a standard system date 


FORMAT_ODS1_DATE_ VALUE: 


VALUE, 
FORMAT_PROTECTION: 
NOVALUE, 
FORMAT_RMS_ATTRIBUTES: 
UE, ' Format RMS attributes area 
DUMPSONE _HEADER; Dump block as a header, if valid 


Format an ODS-1 date 
Format # protection value 


EXTERNAL ROUTINE 


MAKE STRING, 

DUMPSBLANK_LINE :NOVALUE, 
DUMPSDUMP_ BUFFER: NOVALUE, 
DUMPSNEW_PAGE: NOVALUE, 
DUMPSOUTPUT_GETMSG: NOVALUE, 
DUMPSPUT_LINE: NOVALUE; 


! Compute file header checksum 

' Convert ODS-1 filename to ASCII 
! Write blank ‘Line 

! Dump one buffer 

Force page break 

Write gotten message 

Write line 


EXTERNAL 
DUMPSGL_FLAGS: ®BLOCK, 
DUMP$GL-IDESC: @BBLOCK, 
DUMPSGL-INAM: REF BBLOCK, 
DUMP$GL~OUTDESC :BBLOCK, 
DUMPSGL_WIDTH; 


General sags 

Descriptor for input filename 
Input NAM block 

Descriptor for output buffer 
Width of output medium 


FUN “OC OONOUE WN (OOD NAUES WN "ODE NOu 
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EXTERNAL LITERAL 
DUMP$_HEADER 
DUMPS~READHEADER; 


LINE_DESC: VECTOR(2); 


MACRO 
DUMPS$PUT _FAQ(A)= 
DUMPSPUT_FAO_ (UPLIT BYT 
TIF NOT ZNULC(ZREMAININ 
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DUMPSF AO(A)= 
UMPSFAO_(UPLIT 
IF NOT ZNULL(2R 
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GLOBAL ROUTINE DUMPSHEADER: NOVALUE= 


lee 
1 
FUNCTIONAL DESCRIPTION: 
This routine dumps the file header(s) for the current input file. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 


0909 09 0909 09 SINISE NPA AA AAAOOOunniw 


LOCAL 
: REF OCcK, ' Pointer to input file NAM block 
DESC: VECTOR(2), ! utility descriptor 
8 HEADER_DESC: vECTOR(2), ! Header block descriptor 
8 CHANNEL : WORD ! Channel assigned to input device 
8 FIB: BBLOCK 193, i FIB 
9 ATR_DESC: BBLOCKL12 ' ACP attributes List 
9 HEADER: BBLOCKCES12) i File header 
9 VOLATILE, 
9 STATUS, ' Status variable 
; 10SB: VECTORE4,WORD]; ! 1/0 status block 


PIPOPOPIPIPIPINIPIPININIPYPIPYPINIPIPYPIPIPIPIPIPYPIPIPUPIPYIPIPIPUPIPONPIPUPIPUNIPD 


: Get a descriptor for the device name and assign a channel to the device. 


OOCOCOCOSOOCOOSOOSOOSOOOSOSOCOOCOOCOSCOOCOOOOOOOCOOOOOOOOOOO 


WAPONOND: 


NAM = .DUMPSGL_INAM; 
DESC(O) = -NAMENAMSB_DEV) 

DESCL1) = .NAMCNAMSL DEV]: 

STATUS = SASSIGN(DEVRAM=DESC, CHAN=CHANNEL); 
IF NOT STATUS 
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BEGIN 
1 geen 1, DUMPSGL_IDESC, .STATUS); 
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: Initialize to read the primary file header. 
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vival ore} 38s 9330 ge MT eee OE MBE asec 
: 257 70 4 FIBCFIBSW_FID_NUM) = .HEADERCFH2$W_EX_F IDNUM); 
; 258 71 4 FIBCFIBSW-FID-SEQ) = .HEADERLFHoSW-EX-FIDSEQ]; 
; 72 4 FIBCFIBSB-FID-NMX) = ,HEADERCFHOSB_EX—FIDNMXJ; 
; 26 73 4 IF .HEADERCFH2$B_EX FDR) NEQ 0 
; $1 0 i 4 ni THEN FIBCFIBSB_FID_RVNJ = .HEADERCFH2$B_EX_FIDRVNI 
: 26 6 i: 3 ELSE 
3 266 77 4 BEGIN LOCAL MAP_AREA: REF BBLOCK; 
> 265 0 28 4 MAP_AREA = HEADER + + -HEADERCE FH1$8_MPOFFSETJ*2; 
> 266 0379 4 FIBCFIB$W_FID_N ~MAP_AREACFMTSW_EX_FILNUM]; 
: %4 0 9 4 F IBLF IBSu_ FID~ “Sea .MAP~AREACFM1$W-EX—FILSEQ]; 
: $68 6 : 
: 4! 8 Be If no more extension headers, we are done. 
: 27 0386 if .FIBCFIBSW_FID_NUM] EQL 0 THEN EXITLOOP; 
> 27% 038 END; 
: $73 $380 
: Ad 9390 ! ALL done. Deassign the channel and return. 
: 279 0598 $DASSGN(CHAN=. CHANNEL); 
: 280 0393 1 END; 


-TITLE DUMPSHEADER 
-IDENT \v04-000\ 


~PSECT SOWNS,NOEXE,2 


LKB 8 


-EXTRN CHECKSUM, fe STRING 
-EXTRN DUMPSBLANK_LINE 

~EXTRN BURPSDURP P_BUFFER 

~EXTRN DUMPSNEW_ PAGE. DUMPSOUTPUT GETMSG 
SEXTRN DUMPSPUT-LINE. DUMPSGL_FLAGS 
~EXTRN DUMPSGL_TDESC, DUMPSGL ~TNAM 

-EXTRN DUMPSGL-OUTDESC 

-EXTRN DUMPSGL-WIDTH, DUMPS_HEADER 
-EXTRN DUMP$_READHEADER 

~EXTRN SVSSASSIGN. SYS$Q10W 

-EXTRN SYSSDAS 


-PSECT SCODES,NOWRT,2 
007¢ 0002 Pp DUMPSHEADER, Save R2,R3,R4,R5,R6 
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CHANNEL 

DESC 

#4, SYSSASSIGN 
RO, STATUS 
STATUS, 1 
STATUS 

#1 

RS 

#4, LIBSSIGNAL 
, DESC 

, DESC 

NAM 


) 
) 
2 
§ 


ra 
CHANNEL, =(SP) 
=(SP) 

#i2, SYS$QI0W 
RO, STATUS 
STATUS, 3$ 
10SB, STATUS 
STATUS, 4$ 


R 
be 


R5 
#4, LIBSSIGNAL 


#5, DUMPSGL_ FLAGS, 5$ 
aye DUMPSNEQ_PAGE 


e 

#DUMPS HEADER 

#2, DUMPSOUTPUT_GETMSG 
DUMPSBLANK_CINE 

HEADER 

#1, DUMPSONE_HEADER 


#512, HEADER DESC 
HEADER. HEADER_DESC+4 


i 
HEADER_DESC 
) BURPSDUMP_BUFFER 
HEADER+7, #2 


HEADER+14, FIB+4 
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ives 12x808= 1386 93:30:88 OM Beles ae MRE soe1 «35 
EA AD 1¢ AE BO 09101 MOVW —HEADERSI6, F 18+ , 371 
ED AD 1F oA: 1 MOVB HEADER+ 19. FIB+ : | 
1E AF 95 00108 TSTB ADER+18- : 037 
1 j 1 BEQL ; 
EC AD 1€ AE M1 OVE HEADER+18, F1B+8 : ad 
50 Op AE 9A OO117 78 MOVZBL HEAD ; 0378 
: AEG 1 MOVA HEADERCRO Cup AREA : | 
E8 AD AO DO 001 MOVL OMAP EAS, FIB+4 : 0379 
E AD : 125 8$ TSTW  3=- FIB+ qn + 0386 
0 1 BEQL 9% 3 
FF 44 31 120A BRW 2$ ; 
43 6E 3C 00100 9$ MOVZWL CHANNEL, -(SP) + 0392 
000000006 0 01 FB 00130 CALLS #1, SY VSSDASSGN ; 
04 00137 RET : = 
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: $ iy ! ROUTINE CHECK_HEADER (HEADER) = 

; 284 3% 1 !4¢ 

$ 5 97 1/3 

: : 1} FUNCT ign DESCRIPTION: Be 
3 ig6 } This routine validates a block as a file header. 
3 He rh 1 § INPUT Ar 

; 290 4 § 1 i HEAD - Pointer to block. 

3: 291 4 1/ 

; 2 404 1 ' IMPLICIT INPUTS: 

; rete 1 NONE 

3 294 4 : 1 i 

; 295 407 1 | OUTPUT PARAMETERS: 

3 38 408 1! NONE 

:; 29 409 1! 

; 298 410 1: siete +! OUTPUTS: 

; 299 411 1! ONE 

$ 00 tig 1/ 

: 301 gt 1 | ROUTINE VALUE: 

3 0g 414 1: 0 if the block is not a valid header 

; 3 0415 1 1 if the block is a valid ODS-1 header 

3; 304 0416 1! 2 if the block is a valid ODS-2 header 

3; 305 0417 1! 

3 Be 0418 1 | SIDE EFFECTS: 

: 30 0419 1! NONE 

; 308 0420 1! 

: 309 0421 1 i- 

3 10 be5§ 1 

: 311 04 BEGIN 

: i 0424 MAP 

3 1 0425 HEADER: REF BBLOCK; ! Pointer to file header 
: 314 4 § LOCAL 

; \? ry a SAVE _CHECK; ! Save checksum word 

: 317 . 

: 13 Be ? Ensure that the checksum is correct. 

; 320 4 SAVE CHECK = .HEADER FH2S_ CHECKSUM); 

; 1 4 if NOT CHECKSUM( HEADER) 

: 358 23s § Moco 

3 4 $ HEADERCFH2$W_CHECKSUM) = .SAVE_CHECK; 

3 5 RETURN 0; 

3 § 4 3 

$ 4 

3 8 440 

3 9 re : Basic validity test for an ODS-2 header. 

: 1 tg IF .,HEADERCFH2$8_STRUCLEV) EQL 2 

: ; 44 THEN 

3 $2 pgeie 

; 3 rh -HEADERCFH2$B_IDOFFSET] LSSU SBYTEOFFSET (FH2$L_HIGHWATER)/2 OR 
: $8 eHEADERCFH2SB_MPOFFSET] LSSU .HEADERCFH2$B_IDOFFSET) OR 
; 4 EADER 4. $B_ACOFFSET) LSSU .HEADERLFH2SB_MPOFFSET) OR 
; 50 SHEADERLFH2$SB RSOFFSET) LSSU .HEADERLFH2SB ACOFFSET) OR 
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PELELRELPPLEPPPPPPPSPPS2LE 


o 
rx 
oo 
So 


kK 16 | 

16-Sep-1984 01:30: AX-11 Bliss<-32 V4.0-742 P 11 

ergot 3Be 93:38 es AT ete PMEANE Boost -_o os 
.HEADERCFH2$B_MAP_INUSE) GTRU .HEADERCFH2SB_ACOFFSET] = .HEADERCFH2SB_MPOFF SET) 
RETURN 0 


ELSE 
RETURN 2; 
END; 


Basic validity test for an ODS-1 header. 


if .HEADERCFH2$B_STRUCLEV) EQL 1 
THEN 


MAP_AREA: REF BBLOCK; ! Pointer to map area 
! Check the area offsets, the extension RVN, and the retrieval pointer 
: data for consistency. 
If ,HEADERCFH1$8_1DOFFSET3 NEQ FHISC_LENGTH / 2 
RETURN 0; 


MAP_AREA = HEADER + .HEADERCFH1$B8_MPOFFSETJ#2; 


.MAP_AREACFM1$B_EX_RVN]_NEQ 0 OR 
MAP~AREALFM1$B COONTSIZE1_NEQ TOR 


-MAP~AREALFM1$8LBNS! 

.MAP-AREALFM1$B_INUSE] GTRU .MAP_AREACFM1$B_AVAIL] OR 

ae “MAP“AREALFM1$B-AVAIL) GTRU 255 = (.MAP_AREA + FMISC_POINTERS - .HEADER) / 2 
RETURN 0 


RETURN 1; 
END; 


RETURN 0; 
END; 


000¢ 00000 CHECK, HEADER: 


oO 
> 


5 0% AC pO 0000 HOVE HEADERS’ R2 

2g O1FE g Re 3 MOV2WL ef eRoS. SAVE_CHECK : 

DD 00008 PUSHL R : 

000000006 00 F 0D CALLS #1, CHECKSUM : 
7 9 E 14 BLBS 0; i$ ; 

OE C2 7 7 ROVU apie 510(R2) ; 

02 07 iB 91 OOO1E 18: CMPB (R2), #2 : 

30 12 5 BNEQ 2$ : 


> 
ww 


SPMRMM VWWOO—MNMOMULMPNWROCH 


PFPUWCUP OLOUIP rir oO Prorraco 


S999 —"MQOOM 0 0 0" OW 0" 0" OND 7M OO" 0" 0 0" © 
FEF OPFOMONN DS P10 PYM PN | FOP OUND PTS NM 


SOOOOSOSOSOSOSOSOSOSOSSOOSOOSOOOOOOOOOOOOOOOOOSO 


SCODES + 0138 


pa198e 12:21:97 DUMP. SRCIDUMPREADE. 85251 


CMPB 
B 


{R2). #38 
ghe). (R2) 
(Ra), 1(R2) 
tr2), 2(R2) 
(R2), Ps 


1h 
#8, 58(R2), RO 


R2) 
2c tRon? MAP_AREA 
MAP_AREA) 


MAP_AREA), #1 
P_AREA), #3 

(MAP_AREA), 9(MAP_AREA) 
map p AREA, R2 

fee Re), 8 
i. “9 tAP AREA), R2 
A. RO 
RO 


WOWNWOW a We Pe Bene 


Page 12 
. (4) 


0447. 
0448. 
0449. 
0450. 
0451. 


} 


0455 | 
0461 
0471 | 
0476 | 
0478 | 
0479 | 
0480 
0481 
0482. 


H 16 | 
DUMPSHEADER 16-Sep-1984 01:30: AX=11 Bliss-32 v4.0-742 Page 13 
your eet oe ts rie PRES Lt Ma Tee tte TE "a6! 
: ROUTINE DUMPSFAO_(CTRL,PARAM) : NOVALUE= 


tee 


‘ 
FUNCTIONAL DESCRIPTION: 
This routine interfaces to FAO to format information into the Line. 


INPUT PARAMETERS: 
CTRL 


rr) 
Pe 


= ASCIC control string : 
PARAM... - Parameters required by the control string (if any) 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 


IMPLIC3T OUTPUTS: 


Information formatted into the Line buffer. 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 

NONE 


SOCCOOOOOOCOSOOOOOOOSOOOCOOOOOOOOOOOOOOOOOOOOoOO 
PUPP PVSPUSV PUSS SUSU SESS ES SE 
SLIP IPIPINIPIPIPIPIF III IAD ad ar ar a a a rd ad a od od od = = 


Be Se Ge Ge Ge Ge Se Ge Ge FF Se Se Se Ge Ge Se Se Se Ge Ge Ge Gs Ge Se Se Se Se Se Sees ee Se SseSe es Se Se Setseese 


en bt babi on OOOOoOodO 


4 
409 BEGIN 
410 MAP 
411 CTRL: REF VECTORC,BYTE); ! ASCIC control string 
aig LOCAL 
4\ OUTLEN: WORD, ! $FAO resultant Length 
2\3 DESC: VECTORC2); ! Control string descriptor 
416 
417 DeSCtO) = CTREEOI: 
418 DESCC1) = CTRLE1); 
41 SFAOL(CTRSTR=DESC, OUTLEN=OUTLEN, OUTBUF=LINE_DESC, PRMLST=PARAM); 
420 LINE _DESCtO) = ~LINE_DESCEO = .OUTLEN; 
4¢1 LINE~DESCC13 = .LINE-DESCL1) + .OUTLEN; 
422 END; 
.EXTRN SYSSFAOL 
0004 00000 DUMPSFAO_: 
-WORD Save R2 3; 0492 
52 00000000° FF Hi HOVAB LINE DESC, R2 ; 
a C f SUBL2 #12, "SP ; | 
04 AE 04 BC 9A C MOVZBL acTaL DESC > 0528 | 
08 AE 6 ac 1 1 11 ADDL3. #1, CTRL, DESC+4 > 0529 | 
08 AS F 00017 PUS PARAM > 0530 | 
5 D 1A PUSHL R2 2 
08 AE 9F 0001C PUSHAB OUTLEN ; | 
AE 9F OOO1F PUSHAB DESC ; 


'; Routine Size: 


SSS SS SS SS 


55 bytes, 


000000006 : 
6 


5 
06 Ae 


Routine Base: 


iSeseoctgee 01:30:38 


SCODES + 0104 


AX-11 Bliss-32 V4.0-742 
DUMP. SRCIDUMPHEADE .B32;1 


#4, SYSSFAOL 
fLEN, RO 
RO, LINE DESC 


RO, LINE_DESC+4 


zu 
oco 
<< 
LE 
Patty at) 
lt i 
owe 


DUMPSHEADER 


Ox DUSARUN SOO NOE 


TRIE TE TELE Ce Tee Te Te Te Te Te 
Fa 
w 
—_ 


; Routine Size: 


-—. 
ak 8 PS 93:30:68 AX-11 Bliss-32 V4.0-742 
14-Sep-1984 12:21: DUMP. SRC JDUMPHEADE .832;1 
ROUTINE DUMPSEOL: NOVALUE= 
ee 
FUNCTIONAL DESCRIPTION: 
This routine writes the contents of the Line buffer and reinitializes 
for a new Line. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
LINE_DESC - Descriptor for Line. 
! OUTPUT PARAMETERS: 
NONE 


! IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


pole lola jlelelealeleleleloleleleloleleleleleloleolelololelelolelololaleo) 
ahah 4b 4b 4) 4b 4b 4) Ab Ab AD AD Ab AD AR Aa Aa Aa Ab ah ah db eh ah ah hh Ah eb ah dh bh Ah 
PAPAS AMATI BB EB EEE EAN 
NOUS WN $0 OD NA UNE WI SO OONE NEW ("OOONOUE 


—NIAPRINININS -29 St 28 SS Ss Ss SS Ss YS Ss SS SS Ss 24 SH YS 


BEGIN 
LINE_DESCCO] = .DUMPSGL_WIDTH - .LINE_DESC(O); 
LINE-DESCC1) = DURP SEL <OUTDESCLDSC CSA~POINTER); 
DUMPSPUT ANE CLINE DES 
LINE_DESTCLOJ = .DUMPSGL “itn; 
END; 
000C 00000 DUMPSEOL: 
-WORD Save R2,R3 
53 00000000G 00 9€ 00002 MOVAB DUMPSGL_WIDTH, R3 
52 00000000" EF 9E 00009 MOV LINE_DESC, R 
62 6 $e C 90019 SUBL LINE-DESC, DUMPSGL_WIDTH, LINE_DESC 
04 A2 000000006 DO 00014 MOVL DUMPSGL “OUTDESC+4, fi NE _DESC+4 
52 DD 0001C PUSHL 
000000006 00 01 FB 483 CALLS of. DUMPSPUT_LINE 
62 63 dO B006 MOVL DUMPSGL PUIDTRS IN NE _DESC 
04 00028 RET 


41 bytes, Routine Base: $CODE$S + 0208 


Be Oe Oe OO Oe Oe Be Oe Se Se Be Se Se Se Se Se Se Ge Ge Se Ge Se Se SH Se Fe se SH Se Se Ge Se Ge Se Se Se Ge Se Se Se Se Se Se SH Se Se Se Se Se Se oe Se Se Se Se eens 


| 
| 
| 
| 
| 
| 
| 
| 
<o | 


i D 1 
Dd HEADER 16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-742 P 1 
“VOG-000 o- 88-1382 93:30:48 DUMP. SRCIDUMPHEADE .832;1 oe (7 


ROUTINE DUMPSPUT_FAO_(FAO,PARAM): NOVALUE= 


ee 


FUNCTIONAL DESCRIPTION: 
This routine combines the actions of DUMPSFAO_ and DUMPSEOL. 


INPUT PARAMETERS: 
As for DUMPSFAOC_. 


IMPLICIT INPUTS: 
NONE 


i 
| 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


0909 09 09 09 09 09 09 00 00 SI INI NII NNO OO 
OWONAVE WN OC OCONOA UW -W "O0O@ 


SIDE EFFECTS: 
NONE 


LLG, 


. 
e | 


ooononownowowovnwo 
SSeVSSRANLS 


o 


CALLG(.AP, DUMPSFAO_); 
DUMPSEOL () 


—PRONININININONORYD) — ot tt tt tt tt 


0000 00000 DUMPS$PUT_FAO_: 
WORB 


‘ Save nothin ; 0568 

9A oF 6c FA 90002 CALLG (AP), DUMPSFAO_ > 0601 

CD OF 0 FB 00006 CALLS #0, BUMPSEOL ; 060¢ 
04 O000A RET : 060 


; Routine Size: 11 bytes, Routine Base: $CODE$ + 0234 


7 eee _ 


1 
| DUMPSHEADER 1bese -1984 01:30: AX-11 Bliss-32 V4.0-742 Page 17 
bee 1a-Sep-19 4 04:30:68 DUMP. SRC JDUMPHEADE .B32;1 . (8) | 
ls $38 86 ¢ ! ROUTINE FORMAT_BIT_STRING(VALUE,CODES): NOVALUE= 
; 698 Bene 1 le4 
i; 699 60 1% 
; $00 608 1 ! FUNCTIONAL DESCRIPTION: 
: 28) 484 : This routine formats a bit mask. 
: 208 bet3 1 ! INPUT PARAMETERS: 
> 504 ole 1! VALUE - The bit mask value. 
; 3 061 1! CODES - Pointer to a PLIT of ASCIC bit names. 
; 506 0614 1! 
; 507 0615 1 ! IMPLICIT INPUTS: 
; 508 0616 1! NONE 
; 509 0617 1! 
; $10 0618 1 ! OUTPUT PARAMETERS: 
3 S11 0619 1! NONE 
5 aig 0620 1! 
3 51 0621 1 ! IMPLICIT OUTPUTS: 
; 5146 062 1! NONE 
s $35 062 1! 
; 516 0624 1 ! ROUTINE VALUE: 
s Siz 0625 1! NONE 
: 518 0626 1! 
. S19 0627 1 ! SIDE EFFECTS: 
; 520 0628 1! The Listing is produced. 
; $21 0629 1! | 
by 522 06 0 1 lee | 
s $23 0631 1 
3; Se 0632 2 BEGIN 
s See 0633 2 MAP 
: 526 0634 2 CODES: REF VECTOR; ' Value names | 
5 Ser 0635 2 LOCAL ie 
; 528 0636 2 INIT_USED, ! Initial used space on Line 
$ 26? 0637 2 Vv; ! Local copy of value 
‘ee | 0638 2 
3; $31 0639 2 | 
: 532 0640 2 INIT_USED = .DUMPSGL_WIDTH - .LINE_DESCLO); 
3 3335 0641 2 V = cVALUE; | 
: 534 064 IF .V EQL O 
3 399 064 THEN 
; 336 0644 DUMPS$FAO('<none specified>') 
[; $37 0645 SE | 
; 538 064 INCR N FROM O TO 31 DO 
; Sy 64 BEGIN 
; 540 648 FV 
s 561 0649 THEN 
; 266 0650 4 BEGIN 
; «564 0651 5 IF (IF .N GEQU .CODES(C-1] THEN TRUE ELSE .CODESE.N] EQL 0) 
3; 544 3636 4 THEN 
2 $45 065 : BEGIN 
: 266 0654 IF .LINE_DESCCO] LSSU 8 
; 3 0655 5 THEN 
; 48 0656 6 BEGIN 
: 49 tt4 6 DUMPSEOL () ; 
; 550 58 DUMPSFAO(''#* *, .INIT_USED); 
3 22! 0659 END; 
: 552 0660 DUMPSFAO("Bit 'UL", .N); 


END 


ELSE 


BEGIN 
DUMPSEOL () 


PASSA APMIMANMVIIN 


.v<i,31>; 
F .V EQL 0 THEN EXITLOOP; 
UMPSFAO(', '); 

ND 

ELSE 

= .V<1,31>; 


o 
<_ moe<c 


DVPVIVPVPVIV SIU SVSV SISA SISISISISIS 


SNA O 
i=) 
oa 
~ 
Oo 
NINE FFF PNAC 


WDD UA rN OOo eros 


END; 
DUMPSEOL (); 
END; 


65 69 66 69 63 65 70 73 20 65 6E& 6F 6E& 3C€ 10 00000 
3E 64 QO000F 
20 2A 23 21 04 00011 
4C 55 21 20 74 69 42 O07 00016 
20 2A 23 21 04 OOODIE 
43 41 21 03 00023 
20 2C 02 00027 
58 00000000° EF 9€ 00002 
57 00000000" EF YE 00009 
56 82 AF 00010 
55 000000006 9? 06 3 4 pete 
ASH 8h 
? 0D 00022 
66 01 FB 00024 
67 11 00027 
53 D4 O80 9 
59 54 €E9 00028 
25 08 a DO 000 5 
FC OA 53 01 000 
f 1E 000 
6243 D 88 
oS 
OC iE 0020 


01FC 00000 
| 
| 
| 
| 
| 


DUMPSF ADC” Lae *, .INIT_USED); 
DUMPSFAO('!AC', .CODESC.NI); 


2 


| * £30: 
saersgroe ICRESHOEL QeBRGD ted RASS ade 
| 


DUMP. SRC JDUMPHEADE .B32; 1 


EGIN 
Hg ME DESCEO? LSSU 2 + .VECTORC.CODESC.NJ, 0; ,BYTEJ 


PSECT $PLIT$,NOWRT,NOEXE,2 
P.AAA: .ASCII <16>\<none specified>\ 
P.AAB: .ASCII <4>\!a® \ 
P.AAC: .ASCII <7>\Bit !UL\ 
P.AAD: ASCII <4>\!#e \ 
P.AAE: .ASCII <3>\!AC\ 
P.AAF: ASCII <2>\, \ 
-PSECT $CODE$,NOWRT,2 
FORMAT_BIT_ STRING: 
.WORD Save R2,R3,R4,R5,R6,R7,R8 
MOVAB LINE_DESC, R8 
MOVAB P.AAK, R7 
MOV DUMPSFAO_, R6 
SUBL3 LINE DESC, DUMPSGL_WIDTH, INIT_USED 
MOVL VALUE, V 
8NEQ =«s«s1$ 
PUSHL 7 
CALLS #1, DUMPSFAO_ 
BRB 10$ 
1$: CLRL N 
23: BLBC V, 8$ 
MOVL CODES, R2 
CMPL N, -4(R2) 
BGEQU 
TSTL (R2)CNJ 
BNEQ 
3$: CMPL = LINE_DESC, #8 
BGEQU 4$ 


Pete Se Se Se Se Se Se Be Se Se Se Se Ge Se Se Se Se Be 


-—_—_ — —--- a ee 
' 


| 1 
DUMPSHEADER 1b-se -1984 01:30: AX-11 Bliss-32 V4.0-742 Page 19 
¥be~000 12-8 08- 1 ope 93:30:98 DUMP. SRC.]DUMPHEADE .832; 1 . (8) 
37, Ab Q FB 00042 CALLS #0, DUMPSEOL 3 0657. 
DD Oug PUSHL INIT_USED + 0658 | 
11. A? OOF 0004 PUSHAB P.A : 
66 0¢ FB 00048 - CALLS #2, DUMPSFAO_ : 
| DD OO04E 4$ PUSHL N : 0660 | 
| 16 A? OF 005 PUSHAB P.AAC ; 
| 9 11 5 828 r 
52 6243 DO 00055 5s: OVL CR) NJ R2 + 0664 
50 62 9A 00059 MOVZBL (R2), RO ; 
| 50 02 CO 0005¢ ADDL2 #2, ; 
50 68 D1 0005F CMPL  LINE_DESC, RO : 
0c 1E 90062 BGEGU : 
37,6 0 FB 000 CALLS #0, DUMPSEOL + 0667 
55 DD 00068 PUSHL INIT_USED : 0668 | 
1E A? 9F OO06A PUSHAB  P.AA : | 
66 02 FB 0006D CALLS #2, DUMPSFAO_ : 
52 DD 00070 6$ PUSHL  R2 t 0670) 
23 A? OOF 00078 PUSHAB P.AAE : 
66 02 FB 00075 7$ CALLS #2, DUMPSFAO ; 
54 54 1F 01 EF 00078 EXTZV #1 . ve : 0672 
11 13 0007D BEQL 108 : 0673) 
27. A7_sO9F:«OO07F PUSHAB P.AAF > 0674 
66 01 FB 00082 CALLS #1, DUMPSFAO_ ; 
05 11 0008 BRB + 0648 
54 54 1F 01 EF 00087 8$: EXTZV #1, #31, V, V + 0677 
98 53 1F £3 0008C 9$: AOBLEQ #31, N, + 0646 
37 Ab 00 FB 00090 10$ CALLS #0, DUMPSEOL > 0679 
04 00094 RET + 0680 


; Routine Size: 149 bytes, Routine Base: $CODE$ + 023F 


DUMPS ADER 1esep-19 4 91:30:98 AX=11 Bliss-32 V4.0-742 Page 30 


-PSECT S$CODE$,NOWRT,2 


14-Sep-1984 12:21 DUMP. she ah DUMPHEADE . B32;1 
; Hf Ose ! ROUTINE FORMAT_CODED_VALUE(VALUE,CODES): NOVALUE= : 
3 ‘ 
is of 6 1 le+ ; 
3 6 684 1! 3 
5 2/8 685 1! dumm + DESCRIPTION: $ 
; 379 on6 1! This routine formats a coded integer value. F 
; 580 06 1! 3 
; 581 bees 1 ! INPUT PARAMETERS: : 
3 28e 0689 1! VALUE - The coded value | 3 
; 3 0690 1! CODES - Pointer to a PLiT of ASCIC value names. | 3 
: eee $692 i IMPLICIT INPUTS | ; 
BS ebe T E ammuicay eal 
te 4 0694 1! : 
; 588 8 95 1 ! OUTPUT PARAMETERS: ; 
; 589 696 1! NONE $ 
; 590 0697 1! ; 
; 591 0698 1 ! IMPLICIT OUTPUTS: : 
3 238 0699 1! NONE 3 
; 59 0700 1! 5 
; 594 0701 1 ! ROUTINE VALUE: ; 
3; 595 0702 1! NONE 3 
: 596 0703 1! 3 
; 597 0704 1 ! SIDE EFFECTS: | ; 
; 7 0705 1! The Listing is produced. 3 
3; 599 0706 1! ; 
: 600 0707 1 !-- 3 
; 601 0708 #1 | 3 
: 602 0709 2 BEGIN 3 
; 603 0710 2 MAP | 3 
: 604 0711 2 CODES: REF VECTOR; ' Value names ; 
> 605 arte 2 | : 
; 606 07135 2 3 
3; 607 0714 2 IF .VALUE GEQU .CODES[-1) : 
; 608 0715 2T 3 
; 609 0716 2 DUMPSPUT_FAO(*!UL*, .VALUE) : 
3; 610 0717 2 ELSE | ; 
s #1} 0718 2 DUMPSPUT_FAO('!AC’, .CODESC.VALUE]); PY 
: 612 0719 1 END; : 
| 
PSECT $PLIT$,NOWRT,NCEXE,2 : 
4C 55 21 03 OQOO2A P.AAG: .ASCII <3>\!UL\ 3 ‘ 
43 41 21 O03 OOO2E P.AAH: .ASCII <3>\!AC\ b e 
000C 00000 FORMAT_CODED_VALUE: : 
-WOR Save R2,R3 ; 0681 3 
52 04 ac 7 70 92 MOVQ VALUE Re : 0714 : 
fig ba 8F O000A sussu 8" hth 
fo Mi 000C PUSHL R2 ; 0716 : 
| 


; Routine Size: 37 bytes, Routine Base: $CODE$ + 0204 


Rea ee (ee ee of 


| 
=Sep-1984 01:30: AX-11 Bliss-32 V4.0-742 Pa 1 
oa 1 ~300 71387 94:30:48 Ae  SREIBUMPHEXDE -B Soe ait 5) 
00000000' FF 9F O0E PUSHAB P.AAG | ; | 
6342 bp O16 18: PUSH (RS)CR2I : 0718 | 
00000000' FF F 0001 PUSH . F 
FF3C CF 2 FB OOOTF 2$: CALLS #2, DUMPS$PUT_FAO_ é 
04 00024 RET * 0719 


ee oe j 


——___ — 


| J 1 | 
| DUMPSHEADER 16-Sep-1984 01:30: AX-11 Bliss-32 v4.0-742 2 | 
hives ence 13be F3i58igF — FAMAA! Bh iss ese VR On ese o0e 485, 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


65 69 66 69 63 65 70 73 20 65 6E 6F 6E 3c 10 00052 P.AAL: .ASCII <16>\<none specified>\ 
44 25 21 03 00043 P.AAJ: ASCII <3>\!2D\ : 


-PSECT SCODE$,NOWRT,2 


0004 00000 FORMAT_DATE_ VALUE: 
WORD Save R2 ; 0720. 


52 FF35 CF MOVAB DUMPSPUT _FAO_, R2 : 
04 «BC 05 09 90 i TSTL © @VALUE : 0752 | 
14 1 OOA BNEQ 3 


00000000' 


; 614 97 Q 1 ROUTINE FORMAT_DATE_VALUE (VALUE): NOVALUE= : 
1; 615 721 =a : 
3 616 7 g 1 +4 | ; 

, 6f 7 1! ; 

3 218 724 1 ! FUNCTIONAL DESCRIPTION: : 

3 01? 4 5 : This routine formats a standard system date. ; 

4 631 OF § 1 ! INPUT PARAMETERS: 3 

: ? ¢ g? $ : VALUE - Pointer to the system date. | : 

: 626 0730 1.) IMPLICIT INPUTS: ; 

: 625 Bf eS NONE | 3 

3 627 07 1 ! OUTPUT PARAMETERS: 3 

; 628 0734 1! NONE : 

: $6? 0735 1! 3 

; 6350 0736 1 ! IMPLICIT OUTPUTS: | $ 

; 631 0737 1! NONE 3 

3 636 0738 1! : 

3 63 0739 1 ! ROUTINE VALUE: 3 

; 634 0740 1! NONE : 

; 635 Q741 1! ; 

; 636 Brg 1 ! SIDE EFFECTS: 3 

3; 637 0743 1! The listing is produced. ; 

: 638 0744 1! : 

. 639 0745 1 !-- 3 

: 440 0746 1 3 

> 641 0747 2 BEGIN | ; 

; 64 0748 P $ 

; 64 0749 VALUE: REF VECTOR; ! Pointer to date 5 

> 644 0750 | } 

3; 645 0751 : 

: 646 8726 IF .VALUECO) EQL 0 : 

; 647 075 § T : | : 

; 648 5754 DUMPSPUT_FAO('<none specified>') F 

3: 649 0,S5 2 ELSE ; 

; 650 O75. 2 DUMPSPUT_FAO('!%D", .VALUE); 3 

; 651 0757 * END; 3 


NE is 
PUSHAB P.AAI 


phere ae 
Ye + Sama 


62 01 


«00000080 fF 


IE$E0c198E QU:HR:R YNDGD stabbed GBH 


CALLS #1, DUMPSPUT_FAO_ 


FB i 
0 1 RE 
pp 18 1$: PUSHL VALUE 
F 0001 PUSHAB P.AAJ 
FB OOO1F CALLS #2, DUMPSPUT_FAO_ 
04 00022 RET 


; Routine Size: 535 bytes, Routine Base: S$CODE$S + 02F9 


ee 


——$S—$——_— 


“buns ADER bese -Sep-1984 93:30:68 AX=11 Bliss<-32 V4.0-742 Page 24 


P.AAK: .ASCII <16>\<none specified>\ : 


14-Sep-1984 12:21 DUMP. she ah DUMPHEADE . B32;1 a 

; 653 07 1 ROUTINE FORMAT_ODS1_DATE_VALUE(VALUE): NOVALUE= P 
: eee 738 1 mi = = 3 
; 655 760 1 !4¢ 5 
3 628 761 1! 3 
3; 6 76 1 ! FUNCTIONAL DESCRIPTION: é 
; 658 765 1! This routine formats an ODS-1 date. 3 
i; 659 764 1! $ 
; 660 765 1 ! INPUT PARAMETERS: : 
; 661 766 1! VALUE - Pointer to the ODS-1 date. 5 
; 666 0767 1! ; 
: 66 0768 1 ! IMPLICIT INPUTS: $ 
; 664 B79? 1! NONE $ 
; 665 770 1! 3 
3 608 34a 1 ! OUTPUT PARAMETERS: ° 
: 66 tre 1 | NONE | ; 
; 668 0773 1! | J 
3; 669 0774 1°! IMPLICIT OUTPUTS: é 
: 670 0775 1! NONE | 5 
; 671 0776 1! 3 
; O76 0777 1 ! ROUTINE VALUE: | ; 
s 67 0778 1! NONE 3 
3: 674 0779 1! 3 
; 675 0780 1 ! SIDE EFFECTS: : 
; 676 0781 1! The Listing is produced. 3 
3; 677 ores . 3 3 
; 678 0783 1 !-- 3 
; 679 gree 1 3 
; 680 785 2 BEGIN 3 
: 681 0786 g MAP : 
: oe 0787 VALUE : REF VECTORC,BYTE); '! Pointer to date | 3 
; oe 0788 : 
; 684 0789 | : 
; 685 0790 IF .VALUECO) EQL 0 3 
: 686 0791 THEN : 
; 687 1434 DUMPSFAO('<none specified>') 3 
; 688 079 ELSE 3 
; 689 0794 BEGIN 3 
; 690 P 0795 DUMPSFAO(' !AF='AF=-19!AF', 3 
3; 691 P 0796 5: LU s 
3; «69 P 0797 . VALUE i, 3 
; 69 0798 VALUE CS) 5 
: 694 0799 IF ae 33}: 9 : 
; 695 800 N : 
: 698 P 0801 DUMPSFAO(® 'AF:!AF:!AF', : 
; 69 P Hit) . VALUEC7), : 
; 698 P 080 - VALUEL9 3 
i 699 0804 > VALUEL114); ; 
; 700 805 END; : 
: 701 o08 DUMPSEOL (); FY 
: 702 80 END; 3 
-PSECT SPLITS,NOWRT,NOEXE,2 : 


65 69 66 69 63 65 70 73 20 65 6E 6F 6€ HE 19 8 


i ee... 


-—_—_——- nev ieinesienelibethidianbinieatnireteeh sisininaiaei ste 


4 1 | 
| DUMPSHEADER 16-Sep-1984 01: AX-11 Bliss-32 V4.0-742 Pa 5 | 
vole 1465 ety 7 9}: 39: $$ LOUMP. SRC.JDUMPHEADE .832; 1 ra 

46 41 21 39 31 2D 46 41 21 2D 46 41 21 OD 00058 P.AA ASCII <13>\ SAFO! AFH19!AF\ : 
46 41 33 HH 46 41 21 iH 46 41 21 34 gp tires PTAARL ASCII <12>\ !AF:!AF:!AF\ : | 


i 
| .PSECT $SCODE$,NOWRT,2 
001C 00000 FORMAT 0051 abAre VALUE : 


oW Save R2,R3,R4 : 0758 $ 
54 00000000" EF 9E 0000 abuab P.AAK, RG : ; 
53 FEAB CF 9E 0000 MOVAB DUMPS$FAO_, R3 ; : 
52 06 =A 3 Bp R05 MOV VALVE 3; 0790 3 
6 001 TST (R2) : : 
Q 12 00014 BNEQ  1$ : ; 
4 0D 90016 PUSHL  R4 + 0792 : 
63 01 FB 0001 CALLS #1, DUMPSFAO_ : F 
2E 11 0001B BRB $ ; ; 
05 Ad 99F 00010 1$ PUSHAB 5(R2) : 0798 ; 
02 oD 60020 PUSHL : : 
02 A2 9F 000 : PUSHAB 2(R2) ; ; 
03 OD 99 PUSHL ; ; 
52 DD 00027 PUSHL R 3 3 
02 oD 00029 PUSHL : ; 
11 AG 9F 00028 PUSHAB P.AAL : : 
63 07 F 000¢E CALLS #7, DUMPSFAO_ : 
07 Ae 95 00031 TSTB = 7(R2) : 0799 
15 13 00034 BEQL : 
0B A2 99F 00036 PUSHAB 11(R2) : 0804 
02 DD 00039 PUSHL ; 
09 A2 9F 00038 PUSHAB 9(R2) ; 
02 DD OO03E PUSHL #2 ; 
07 Ag 9F 00040 PUSHAB 7(R2) : 
02 DD 00043 PUSHL #2 : 
1F «6G OOF 00085 PUSHAB : 
63 07 FB 00048 CALLS 4? NDUMPSE AO. : 
37a 00 FB 00048 2$: CALLS #0. DUMPSEOL~ : 0806 
04 0004F RET : 0807 


; Routine Size: 80 bytes, Routine Base: S$CODE$ + 031C 


} 


a 


—-——_-—--—_-__—__—_---— 


[i 


ee 
Be Be Se Be Se Se Be Be Se Be Se Se Se Se Be Se Se Se Se Be Se Se Ge Se Se Se Ge Se Se Ge Ge Ge Se Ge Se Se Se Se Se Se Ge Se ee Ge Ge Se Se Ge Se Se Seaee 
} 


MEUN “OC OONOAUES WN" O OONOUSWNH oO 


= Se SER oS Sor ed unu oe tH ss 8 


ooon 


PPP PPP EPEANANANAARAS PPE E LSE ES 
_ 


748 


SOOOCCOCOOCOOCOCOOOOOCOOOOOOOoOoOoOO 


Se Ge Go Go Ge Ge Ge Ge Go Ge Ge Ge OP Ge OP Ge Ge OP Go OP Ge Ge Oe Ge Ge Oe Ge G2 Ge G0 2 GoSe 


FS AWANNAWNAAIAIRINIPUPINPUNIPONPNDYD 2 2 OOO OO MOO 


OOONA VES WD $9 ODNAUE WN S$ CO ODNOUS WN —OOO 


Coo°ooo 


0841 


SOOOCoOoOOooOoCOooo 
SWOONOUS WN OO 


o 


=NIMINRIMI HE & ANUP PINYNINYIPINYINIPYPIDIDIDY a at at nt a nt nt nt td at at ot tt 


N 1 
1eeSep-19be 12:21:89 


ROUTINE FORMAT_PROTECTION(PROT,CODES): NOVALUE= 


res 


FUNCTIONAL DESCRIPTION: 
This routine formats a protection value. 


INPUT PARAMETERS: 
PROT - A protection value. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
The Listing is produced. 


BEGIN 
PROT: BITVECTORC1 
CODES: VECTORC,BYT 
BIND 
WHO = UPLIT ( 
PLIT BYTE (RASCIC 'S:*), 
UPLIT BYTE (ZASCIC ', 0:'), 
UPLIT BYTE (ZASCIC °. G:') 
UPLIT BYTE (ZASCIC '. w:')5 
: VECTOR; 


INCR len 0 10 3 DO 


DUAPSF ADC” LAC* WHOL. 13); 
INCR J FROM O f0 3 DO 


Ax-11 BL 
2: 


CODES - The four letter codes, e.g. ‘RWED'. 


6], ! Protection value 
EJ]; ! Letter codes 


co -PROTC.1*4+.J] THEN DUMPSFAO('!AD', 1, CODESC.J]); 


DUMPSEOL () ; 
END; 


-PSECT SPLITS,.NOWRT ,NOEXE ,2 


iss-32 V4.0-742 
DUMP. SRC JDUMPHEADE .832;1 


ron it 


vg Af kanklcetlUlUleWO.ULUCO]D?CC 


; =. | 


=. = 


DUMP. Re siti UMPHEADE .832; 1 


| 8 2 
DUMPSHEADER 16-Sep-1986 01:30: AX=11 Bliss-32 v4.0-74 p 7 
Poet OOD 1ersee=t Re 93:39:48 : 29° 155, 


A 53 02 73, P.AAO: .ASCII <2>\S:\ ; 
A GF 20 2C Q46 76 P.AAP: ASCII <4>\, O:\ : 
A 47 20 2C 04 7B P.AAQ: .ASCII <4>\, G:\ : 
A 57 20 2C 04 boge P.AAR: mt} “igi W:\ : 
00000000" 00000000' rr. 00000000" 00088 P.AAN: <ADDRESS P.AAO, P.AAP, P.AAQ, P.AAR : 
1 0 009 PLAAS: .ASCII <3>\!AC\ : 
44 4) 1 0 O09C P.AAT eASCII <3>\!AD\ 3 
WHO= P.AAN 


-PSECT S$CODES$,NOWRT,2 


003C 00000 FORMAT — 
nose Ree oR3,R4,R5 


; Routine Size: 61 bytes. Routine Base: SCODE$S + 036C 


55 00000000' EF 9€ 00002 mOVAB ; 

54 FESB CF 9E 00009 MOVAB DUMPSFAO. ; ; 

53 D4 O000E CLRL : 0849. 

6543 DD 00010 1$: PUSHL WHOCI) + 0851) 

10 A5 9F 00013 PUSHAB P.AAS : 

64 02 FB 00016 CALLS #2, DUMPSFAO_ : | 

: D4 00019 1 eee > 0852) 

50 6243 DE 00018 2s: MOVAL Cott) RO > 0854 

0c 06 AC 50 £0 0001F BBS PROT, 3$ ; 
08 AC42 OF 00024 PUSHAB POEs TV : 

01 DD 00028 PUSHL #1 : | 

14 AS 9F OOO2A PUSHAB  P.A : | 

64 03 FB 0002D CALLS #3, ADUMPSFAO. ; 

£7 g 03 £3 00030 3$: AOBLEQ #3. J, 2$ : 0852) 
D8 . 03 F3 00034 AOBLEQ #3. 1. 1$ > 0849 | 
37 AG 00 FB 00038 CALLS #0. DUMPSEOL > 0859 | 

04 0003C¢ RET : 0860. 

| 


| ¢ 2 
DUMPSHEADER 16-Sep-1984 01:30: AX=11 Bliss-32 V4.0-742 2 8 
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; 738 0861 1 ROUTINE FORMAT_RMS_ATTRIBUTES(FAT): NOVALUE= 

; 759 98, 1 

: 760 865 1 S44 

s 76) 0864 1! 

; 76 BaP? 1 ! FUNCTIONAL DESCRIPTION: 

s 76 5e8 1! This routine formats the RMS attributes. 

3; 764 0867 1! 

: 765 0868 1 | INPUT PARAMETERS: 

; 766 0869 1! FAT - Pointer to attributes area. 

s 767 0870 1! 

; 768 0871 1 =! IMPLICIT INPUTS: 

; 769 1h 1! NONE 

; 770 0875 1! 

s 9Fy 0874 1 !' OUTPUT PARAMETERS: 

TEM a 0875 1! NONE 

We 6 4 0876 1! 

s 77 0877 1 =! IMPLICIT OUTPUTS: 

; 9 0878 1! NONE 

; 776 0879 1! 

: 777 0880 1 ! ROUTINE VALUE: 

; 778 0881 1! NONE 

; 779 0882 1! 

; 780 0883 1 ! SIDE EFFECTS: 

s 781 0884 1! NONE 

: 782 0885 1! 

; 783 0886 1 !-- 

; 0887 1 

3; 785 0888 2 BEGIN 

3 0889 2 MAP ; : 

: 787 0890 2 FAT REF BBLOCK; ' Pointer to RMS attributes area 

3 0891 § BUILTIN 

: 789 089 ROT; 

3; 790 08935 2 BIND 

3; 791 0894 2 RTYPE_CODES = PLIT( 

: 792 0895 2 UPLIT BYTE (ZASCIC ‘Undefined'), 2( 
; 793 0896 2 UPLIT BYTE (ZASCIC ‘Fixed"), 

4 0897 2 UPLIT BYTE (ZASCIC ‘Variable') ‘ 

: 795 0898 2 UPLIT BYTE (ZASCIC ‘Variable with fixed control"), 

.. 7 "8 2 UPLIT BYTE (ZASCIC ‘RMS-11 stream’), 3 
: 797 900 2 UPLIT BYTE (ZASCIC ‘LF-terminated stream‘) 

: 798 0901 2 UPLIT BYTE (ZASCIC ‘CR-terminated stream')), 61 
; Tr 0902 2 FILEORG_CODES = PLIT( 

3 090 UPLIT BYTE (ZASCIC *Sequential'), 6/ 
: 801 0904 UPLIT BYTE (ZASCIC ‘Relative'), 

; 02 0905 UPLIT BYTE (ZASCIC ‘Indexed'), 64 
; 803 0906 UPLIT BYTE (ZASCIC ‘Direct')), 

; 804 0907 RATTRIB_CODES = PLIT( : él 
; 805 0908 UPLTT BYTE (ZASCIC ‘FORTRAN carriage control"), 

: 806 0909 UPLIT BYTE (ZASCIC ‘Implied carriage control"), 

; 807 0910 UPLIT BYTE (ZASCIC ‘Print core loge control’), 

; 808 0911 UPLIT BYTE (ZASCIC ‘Non-spanned')); 

BH } 
3 Br tA DUMPS$PUT LINE (SDESCRIPTOR(* VAX-11 RMS attributes')); 
; sig 0915 DUMPSFAOT'!8* Record ype: +828 *); 

s Bi p91¢ FORMAT CODED _VALUE(.FATCFATSV_RTYPE], RTYPE_CODES); 2 
3; «4814 091 DUMPSFAO('T8* File organization: !Té6* '); 6 


> 2 
DUMPSHEADER 16-Sep-19 0: AX-11 Bliss-32 Vé.0-742 & 9 
voe aaah i PE) oP PT SPE oe age $5 


; 15 O38 T fOPED. VALUE(. Be eho PILGORGI. FILEORG_CODES); 
3 1 091 DURPSPAQCT * Record attribu 
: Bi 0920 FORMAT BIT_STRING(.FAT FATES arteyé, RATTRIB_CODES); 
3 18 P 0921 DUMPSPUT _FAO('TBe Re ord s 
3 £38 09 ¢ eFATCFATSW_RSIZ 
3 0 P 09 DUMPSPUT_FAO('T8* H hes eters! '20* 'uL', 
; 821 0924 IE a - ee 6)) 
; 8 : P 0925 2 DUMPSPUT_FAO(''8* E fitite, block: '16* FUL", 
: Hy 09 $ ROTC. FATCFATSL EFBCR is 
> B26 P 09 DUMPSPUT FAO(' !8« End of ait ee 117" UL", 
; 825 0928 FAT he fre ); 
3 Hg P 0929 DUMPS$PUT FAO('TS Bucket size: '22* 'UL', 
; 827 0930 FATCFAT “BxTs SITE) 
: 828 P 0931 DuMPSPUT FAO(' cstithy: control area size:'10* 'UL', 
: 829 O36 .FATCFATSB_VFC 
: 830 P 093 DUMPSPUT FAO(' TB Restos record size:!14* !UL', 
3; «831 0934 FATCFATSW MAXREC)); 
; o36 P 0935 puMP$PuT FAO('T8* Default extension size:!11* ‘wm’. 
; 85 0936 PAICRATSW DEFEXTJ); 
3 834 P 0937 2 DUMPSPUT_FAO('TBe Lobal buffer count:!14* !UL', 
: 835 0938 2 -FATCFATSW 
: 836 P 0939 2 DUMPSPUT_FAO('TBs birecters version Limit:!10* !'uL', 
: 837 0940 2 FAICFATSH. VERSIONSJ); 
; 4838 0941 1 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
64 65 6E 69 66 65 64 6E 55 09 OQOOAO P.AAV: .ASCII <P \yndetined\ ; 
64 65 78 69 46 05 OQOOAA P.AAW: .ASCII <5>\Fixed\ 3 
65 6C 61 69 72 61 56 G8 QO0BO P.AAX: .ASCII <8>\Variable\ 3 
20 68 74 69 77 20 65 6C 62 61 69 3 61 56 1B OQOO0B9 P.AAY: .ASCII <27>\Variable with tixed control\ : 
6C 6F 72 74 of 6F 0 64 65 78 69 66 000C8 3 
@ 6: @ fe % Ys 2 3} 1 D 53 4D 52 OD 00005 P.AAZ: .ASCII <13>\RMS-11 stream\ : 
20 64 65 74 61 GE 69 6D 65 74 2D 46 4C 14 OQOOE3 P.ABA: .ASCII <20>\LF-terminated stream\ ; 
6D 61 65 is 74 73 O00F2 i 3 
20 64 65 74 61 6E 69 6D 72 65 74 2D 52 43 14 OQOOF8 P.ABB: .ASCII <20>\CR-terminated stream\ 5 
60 61 65 72 74 73 00107 3 
0010D -BLKB 
00000007 00110 . LONG ; 
00000000" 00000000' 00000000' 00000000° 00000000' 44 Botte P.AAU: .ADDRESS P.AAV, P.AAW, P.AAX, P.AAY, P.AAZ, - 3 
6C 61 69 74 i 75 71 #65 ; A 0186 P.ABD: .ASCII <10>\Sequent ial\ 2 
65 i 2 4 61 6C 65 : 01 P.ABE: .ASCII >\Relative\ ; 
65 64 6— 4 0144 P.ABF: .ASCII c >\Indexed\ ; 
65 72 69 44 06 bies P.ABG eASCII <6>\Direct\ 3 
01 BLKB } 
8000 0004 00154 LONG ; 
re aie rd ria ae 00° 00000000' 3 P.ABC: OORESS P.ABD, P.ABE, P.ABF, P.ABG ; 
61 69 72 72 61 20 46 41 46 i 4 P.ABI: <ASCII] <24>\FORTRAN carriage control\ ; 
61 69 72 72 61 rs 4 ? 6) & t 79 & 20 rts 18 b 184 P.ABJ: .ASCII] <24>\Implied carriage control\ ; 
65 67 61 69 72 ec § 61 65 20 74 69 3 g 38 B19A P.ABK: .ASCII <22>\Print carriage control\ 3 
6C 6F 7 ; 6— 6F 6 3 O1A9 ; 
64 65 6€ 6E€ 61 70 7 6— 6F 4E OB 00181 P.ABL: .ASCII <11>\Non-spanned\ 3 


DUMPSHEADER 1b. : AX-11 Bliss-32 V4.0-742 P 0 

ives a= 8 Home sets omBME AGE Boost age 43 
: 

4 


018 
08880808 0160 : 
poogeee: as art 99009900. 0 g00ge" 104 P.ABH: . ESS P.ABI, P.ABJ, P.ABK, P.ABL 5 
20 31 31 gp 8 41 56 99 30 104 P.ABN: . 1 \ VAX-i1 RMS attributes\ : 
3 65 74 75 62 69 4 76 6) 1€3 : 
O1ED -BLKB 3 
00000019 OO1FO P.ABM: .LONG 5 5 
00000000" 001F4 ADDRESS P.ABN : 
64 72 6F 63 $3 3¢ 3 A 3 : t 00207 P.ABO: .ASCII <21>\!8* Record type:!22* \ : 
F 20 65 6C 69 46 § A $3 1 8 6 OE P.ABP: .ASCII <27>\!8* File organization: !16* \ : 
6 31 21 5A OF GF $9 24 61 2A 6 00 1D : 
gt 2 6F 63 6 g 0 2A 38 21 0 ¢A P.ABQ: .ASCII <27>\!8* Record attributes:!16* \ : 
6 3] 21 3A 73 6 4 75 S¢ 69 72 00239 3 
64 72 6F 63 65 52 99 A 38 ¢} 18 00 22 P.ABR: .ASCII <24>\!8* Record size:!22* !UL\ 3 
Oe ee. ae a ae 4 A 65 0025 ; 3 
73 65 68 67 69 48 20 2A 38 21 1A OQO25F P.ABS: .ASCII <26>\!8* Highest block:!20* !UL\ 3 
55 21 $8 2A 30 i 21 3A $8 63 6F 0026E ; 3 
66 6F 20 64 6€ 45 20 2A 38 4 3 QO027A P.ABT: .ASCII <30>\!8* End of file block:!16* !UL\ $ 
36 31 21 SA 6B 63 6F 6C 62 20 Pf: + +4 3 
66 6F $9 64 6€ 45 0 A 38 21 1D 00999 P.ABU: .ASCII <29>\!8* End of file byte:!17* !UL\ : 
2A 37 31 21 3A 65 74 79 62 20 65 O002A8 3 
74 65 68 63 75 42 98 A 38 21 18 002B7 P.ABV: .ASCII <24>\!8* Bucket size:!22* !UL\ 3 
4C 55 21 20 2A 32 32 4 A 65 002C6 $ 
20 66 65 78 69 46 20 2A 38 21 $3 00200 P.ABW: .ASCII \$!8* Fixed control area size:'!10* '‘UL\ 3 
69 73 20 61 65 72 61 20 6C 6F 72 OO02DF 5 
ag 35> 21 2 $A 30 31 00 33 . ; ; 
75 6D 69 78 61 4D 20 2A 38 21 20 OO2FS P.ABX: .ASCII \ !8* Maximum record size:'!14* 'UL\ 3 
21 3A 65 7A 69 73 20 64 fe of $; 80308 3 
6C 75 61 66 65 44 20 2A 38 21 $3 b0338 P.ABY eASCII \#!'8* Default extension size:!11* 'UL\ ; 
7A 69 73 20 6E 6F 69 73 6E 65 74 003 3 
4¢ 55 21 20 2A 31 003 $ 
6C 61 62 6F 6C 47 20 2A 38 21 20 O0033A P.ABZ -ASCII \ !8* Global buffer count:!14* !UL\ 3 
21 3A 74 6€ 75 6F 63 20 ie 9 $$ ited 3 
74 63 65 72 69 44 20 2A 38 21 $e 00358 P.ACA: .ASCII \$!8* Directory version Limit:!10* !UL\ 3 
6D 69 6C 20 6€ 6F 69 73 72 $3 6 0036A 3 
4C 55 21 20 2A 30 31 00379 3 
RTYPE_ CODES= P. AAU 
F ILEORG_CODES= P.ABC 
RATTRIB_CODES= P.ABH 
-PSECT SCODES,NOWRT,2 
001C 00000 FORMAT_RMS_ATTRIBUTES: 
. WORD ave R2,R3,R4 : 0861 
54 FE8S CF 9€ 0000 MOVAB DUMPSPUT_FAO_, R4 ; 
53 00000000' gf 9E 0000 MOVAB P.ABM, R3 3 
3 0d 00 PUSHL R ; 0914 
000000006 00 01 FB 0001 CALLS) #1, DUMPSPUT_LINE 3 
08 <A3 9F 0001 PUSHAB P, ; 0915 
AQ AG 01 FB OOOIA CALLS #1, DUMPSFAG_ ; 
FF24 C3 9F OOOTE PUSHAB RTYPE_CODES 3; 0916 


es 
DUMPSHEADER 16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-742 Page 31 
vive ts 19-08-1382 93:30:68 DUMP. SRC ]DUMPHEADE .832; 1 . a) 
7E 62 i cor Me, 09 g PuYoy Oe wee (R2). (SP) : 
QOAO C4 oe FB CALLS #2, FORMAT_CODED_ VALUE : 
Cr aa a aah So 
— @ - » BAS | fie fence ome 
OOAO C4 ; FB O94 CALLS #2, FORMAT_CODED_VALUE ; 
3A AS OOF «(0004 PUSHAB P.ABQ : 0919. 
AO AG 01 FB 00048 CALLS #1, DUMPSFAO F 
eB OAS Ha S8REE RTA at Bones Noes 
0B AG 02 FB 00053 CALLS #2, FORMAT _BIT_STRING : | 
7E 92 A 3¢ 0057 MOVZ2WL 2(R2), =(SP) + 0922 
64 . 0 FB itt CALLS #2, DUMPSPUT_FAO ; 
7E 04 A2 15 §¢ 90061 ROTL #16, 4(R2), =(SPY : 0924 
6F AS 9F 00066 PUSHAB P.ABS ; 
64 02 FB 00069 CALLS #2, DUMPSPUT_FAO : 
7E 08 A2 10 9C 0006C ROTL #16, 8(R2), =(SPY ; 0926 | 
008A C3 9F 00071 PUSHAB P.ABT : 
64 62 FB 00075 CALLS We, DUMPSPUT_FAO_ : 
7E 0c ag 3¢ 00078 MOVZWL 12(R2), =(SPY : 0928 
00A9 C3 9F O007C PUSHAB  P. : 
64 02 FB 00080 CALLS #2, DUMPSPUT_FAO_ : 
7E OF Ao 9A 00083 MOVZBL 14(R2), -(SPY : 0930. 
00c? c3 9F 00087 PUSHAB P.ABV : 
64 02 FB 00088 CALLS He DUMPSPUT_FAO_ : 
7E OF Ag 9A 0008E MOVZBL 15(R2), -(SPY : 0932 
O0EO C3 9F 00092 PUSHAB P.ABW : 
64 02 FB 00096 CALLS #2, DUMPSPUT_FAO_ F 
7E 10 Ae 3C 00099 MOVZ2WL 16(R2), -(SPY > 0934) 
0105 ¢3 9F 0009D PUSHAB P.ABX ; | 
64 62 FB OO0A1 CALLS He DUMPSPUT_FAO_ ; 
7E 12 Ag 3C O00A4 MOVZWL 18(R2), -(SPY 3 0936) 
0126 C3 9F 0008 PUSHAB P.ABY : 
64 02 FB OOOAC CALLS We, DUMPSPUT_FAO_ ; | 
7E 16 Ad 3C OOOAF MOVZWL 20(R2), -(SPY : 0938. 
014A C3 9F 00083 PUSHAB P.ABZ ; 
64 62 FB 00087 CALLS ue, DUMPSPUT_FAO_ : 
7E 1€ ag 3C OOOBA MOVZWL 30(R2), -(SPT > 0940. 
0168 C3 9F OO0BE PUSHAB P.ACA : | 
64 02 FB 000C CALLS #2, DUMPSPUT_FAO_ : 
04 000¢ RET > 0941 


; Routine Size: 198 bytes, Routine Base: S$CODE$S + 03A9 


2 
PSHEADER 1b-sép-1984 01:30: AX-11 Bliss-32 V4.0-742 Page 32 
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: 0942 1 GLOBAL ROUTINE DUMPSONE_HEADER (HEADER) = 

> 841 0945 1 

: Beg 0944 1 !44 

: 84 0945 1! 

> B44 094 1 ' FUNCTIONAL DESCRIPTION: 

5 ot? +744 : } This routine dumps one block as a file header if it is valid. 

; 847 0949 1°! INPUT PARAMETERS: 

; 848 0950 1! HEADER - Pointer to block. 

: 849 0951 1! 

; 850 O32¢ 1 ! IMPLICIT INPUTS: 

s 8) 0955 1! NONE 

3 S26 0954 1! 

; 8 0955 1 ! OUTPUT PARAMETERS: 

> 854 8338 1! NONE 

> 855 0957 1! 

; 856 0958 1 ! IMPLICIT OUTPUTS: 

; 857 0959 1! NONE 

; 858 0960 1! 

; 859 0961 1 | ROUTINE VALUE: Bae 

; 860 0962 1! True if the block was a valid file header and was dumped, 

; 61 0965 1! otherwise false. 

; 86 0964 1! 

; 86 0965 1 ! SIDE EFFECTS: 

5 0966 1! NONE 

; 865 0967 1! 

; 866 0968 1 !-- 

> 867 0969 1 

; 868 0970 2 BEGIN 

: 869 0971 § P 

; 870 097 HEADER: REF BBLOCK; ! Pointer to file header 
: 871 0973 2 LOCAL 

3; 872 0974 2 STRUCLEV ' Structure level 

; 873 0975 2 IDENT T_AREA: REF BBLOCK, ' Pointer to ident area 
; 4 0976 2 IDENT-LENGTH, ! Length of ident area 
; 875 0977 2 MAP_AREA: REF BBLOCK, ! Pointer to map area 

; 876 0978 2 MA “LENGTH ' Length of map area 

; 8 0979 2 ACE~POINTER : REF BBLOCK, i Pointer to current ACE 
: 878 0980 § ACE_BINDESC : BBLOCK (8), ! Descriptor to binary ACE 
; 879 0981 ACE_TXTDESC : BBLOCK (8) ! Descriptor to converted ACE 
; 880 098 ACE_TEXT : BBLOCK (512); ! Storage for converted ACE 
; 881 098 BIND 

; 882 0984 FCH_CODES = PLIT( 

; 883 985 0 

3 884 9 UPLIT BYTE (ZASCIC ‘No backup"), 

; 885 0987 UPLIT BYTE (ZASCIC ‘Writesback cache"), 

; 886 0988 UPLIT BYTE (ZASCIC ‘Read check’ ) 

; 887 0989 UPLIT BYTE (ZASCIC ‘Write check’ 3 

; 888 0 UPLIT BYTE (ZASCIC "Contiguous best try"), 

; 889 0991 UPLIT BYTE (ZASCIC ‘Deaccess locked’ .. 

: Sot 43 at gvie (ZASCIC *Contiguous'), 

; 89 0994 UPLIT BYTE (ZASCIC ‘Corrupted Access Control List’), 

; 9 94 UPLIT BYTE (ZASCIC ‘Spool file’), 

: 94 338 UPLIT BYTE (ZASCIC ‘Dd rectory’), 

: 95 099 UPLIT BYTE (ZASCIC ‘Suspected bad blocks"), 

; 896 0998 UPLIT BYTE (ZASCIC ‘Marked for delete’), 


2 
DUMPSHEADER 16-Sep-1986 01:30: AX-11 Bliss-32 v4.0-742 
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97 99 UPLIT BYTE (ZASCIC ‘Space not charged’), 

98 00 UPLIT BYTE (ZASCIC ‘Erase on delete')), 

899 99 FIN_CODES = PLIT( 
900 UPLIT BYTE (ZASCIC ‘Accessible only in recovery unit’), 
901 UPLIT BYTE (ZASCIC ‘Enable recovery unit atheaceel de 
90 UPLIT BYTE (ZASCIC ‘Before ganeee journal’ 

90 UPLIT BYTE (ZASCIC ‘After i ournal L*) 

904 UPLIT BYTE (ZASCIC "Audit tra?l journal’ 7 

905 PLACEMENT_CODES = PLIT( 
906 UPLIT BYTE (ZASCIC ‘Exac t') 
907 i}, Y BYTE (ZASCIC 'C Linder boundary'), 
908 0, 0, ? 0, 0,0, 
909 UPLIf BYTE’ (ZASCIC ‘specific LEN") 

UPLIT BYTE (ZASCIC "Specific RVN')5; 


BUILTIN 
ROT 


. 
° 


; Validate the header. 


STRUCLEV = CHECK HEADER( HEADER) ; 
IF .STRUCLEV EQL~O THEN RETURN 0; 


Initialize. 


LINE_DESC 0] = .DUMPSGL_WIDTH; 

LINE~DESCC1) = .DUMPSGL— OUTDESCEDSCSA POINTER); 
IDENT AREA = .HEADER + oa RCFH2$B TD rath 
MAP = HEADER ‘ gHEADER FHOSB RPOFFSe 


If the header is valid, dump it in the proper format. 
DUMPSPUT af os {SOESCRIP TORE Header area')); 
DUMPSPUT~FAO(' Iden see area offset:!11* !UL', 


sHEADERCFH288_ 1DOFF SET 
DUMPSPUT FAO(' ea offset:!22* 'UL', 


SHEABERCE H2S8 yo te. 
IF .STRUCLEV EQL 2 


WAI AAAI AAR PIPININPUNINUNINID) 9 I OS OS SS 


RARWU—S Soo NOUS WN —“OOONAUESWN—O 
fa | we J we | we) we ee ww fo lololololololelolololelolololololololololalololo) 


OOOVOOVOOOOOOOOOOVOOVOVOOVOVOVOODOVOOOO 
FR 
BE FAA AAAAI NIIP PIPINPINIPNINIDY 2 2 OOO OM SM MH OOOOOCOO 


Ww 
on 
SOOWONO UE WIN $ O ODNOA UE WIN S$ OOONAUE WN" O OONOAUE WOO 
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kk kk tt a a tt a 4 — 4 > 9 9 2 — —) bs 9 > — 4 4 49 4 4 9 4 4 4 9 4 4 4 4 4 9 4 4 19 GE 


citer anni cp agli Sa ah oN sine im alee Buk ane cic ctor aig 

_ 

o 

Phe) 

a 
xz 

(aud aa) 

m> 

z 

a 

“ 

= 
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1 
940 ¢ BEGIN 
941 04 LOCAL 
9 p68 P: REF BBLOCK; 
944 e beg DUMPSPUT_FAO(' Accons control area offset:!11* ‘UL', 
945 04 HEADERCFH2$B_ACOFFSETJ); 
946 P 1048 pumpsrut a “Reserved area offset:!17* !UL', 
947 049 HEADERCFH2$B_RSOFFSET)); 
948 P 1050 DUMPSPUT FAO(' “Extension segment number:!13* !UL", 
949 03] HEADERCFH2$W_SEG_NUM)); 
950 Pp 3 DUMPSPUT FAO(' Stractur level and version:!10* !UL, !UL', 
951 P 105 -HEADERCFH2$B8_STRUCLEV 
95 054 HEADERLFHO$SB_STRUCVER]S; 
95 P 1055 DUMP$PUT_FAO(' “File Liesl ttcen tens 118% (!UL,!UL,!UL)", 


Byergne AOER 1h-52 -Sep-1984 ¢ 91: at 98 AX-11 Bliss-32 V4.0-742 : Pege it 


0 14-Sep-1984 DUMP. she BCID DUMPHEADE .832;1 
; 936 P 1056 -HEADER[FH2$W_FID_NUM] + .HEADERCFH2$8_F1D_NMXJ°16, 
; 955 P 105 “HEA DERLFH $u7F 1D-SEG 
; 956 1058 ADERCFHOSB_FID-RVNIJS; 
: 957 P 105 ounest T FAQ(’ “Extension. file identif fisgs! tion 188 Ck «fu 'UL,!UL)* 
> 958 P 1060 EADERCFH2SW_EX_FIDNUM] + .HEADERCF _FIDNM 
: 959 P 1061 HEA DERLFH SWTEX"F IDSEQ 
: 960 106¢ HEADERLFH2SB EX -FIDRVNJ); 
; 961 106 FORMAT_RMS rATIRIBOTES (HEADER FSW RECATIRI); 
: 306 1064 er File character e \sge * '); 
; 96 1065 MAT_BIT_STRING(.HEADERLFHOSL_FILECHAR], FCH_CODES); 
: 964 C1066 3 2 
>; 965 C 1067 DUMPSFAO(' Record protecti on Yay 
; 966 C 1068 . FORMAT_PROTECTION( .HEADERLFH2$W *RECPROTI, "RWCD'); 
; 968 P 1070 sige 1° Tene Map area words in use:!16* 'UL', 
> 969 1071 RCFH2$B_MAP_INUSEJ); 
; 970 pe S76 pumpsput cee oon node: '26* 'UL', 
: 971 107 -HEABERCFH2$B8_ACC_MODE]); 
: 97 P 1074 DUMPS$PUT FAD( “File owner UIC:!23* !X1', 
; 97 1075 -HEABDERCFH2$L_F ILEOWNER]); 
3; 974 1076 oat noratt rotection:'22* '); 
: 975 1077 : OTECTION( .HEADERLFH2SW_FILEPROTI, "RWED'); 
; 976 P 1078 DUNPSeT TEKO th Back Link file identification: '8* UL 'UL,'UL)", 
; 977 P 1079 -HEADERCFH2$W_BK_FIDNUM] + .HEADERCFH2OSB_BK_F IDNMX]*°16, 
: 978 P 1080 -HEADERLFH2$W_BK—F IDSEQ 
: 979 1081 .HEADERLFH2$B_BK—F IDRVNJ); 
; 980 1088 PSFAO(' Journal control flags :'16* ") 
: 981 108 FORMAT 1 STRING( READERCFH? W *OURNAL, fun CODES); 
; 982 P 1084 DUMPSPUT_FAO(' Highest block written: 
: 983 P 1085 (IF THEADERCFH2$L_HIGHWATER] GTR 0 
: oe 1086 — cHEADERCFNEST MIG HWATER] - 1 ELSE 0)); 
3 986 1088 SUMPSPUT The CEDESCRIPTOR R( "Identification area')); 
; 4 1 } IDENT LENGTH GEQU SBYTEOFFSET(FI2$W_REVISION) 
: 989 1091 IF .HEADERCFH2$B_MPOFFSET] - .HEADERCFH2$B_IDOFFSET] 
: 990 109 3 GEQU (SBYTEOFFSET (FI2$ST_FILENAMEXT) + FI2SS_FILENAMEXT) / 2 
: 991 109 THEN 
; 992 P 1094 DUMPSPUT_FAO(' File name:!28* 'AF‘AF 
: 99 P 1095 FI2$S_FILENAME, IDENT AREACFI2$T_F ILENAM 
: 994 1096 FIOSS-FILENAMEXT, IDERT_AREA erst see NAREXT) 
: 995 1097 LSE 
: 996 P 1098 DUMPSPUT FAO(' File name:! at 
: 997 1099 F12$S_ FILENAME, IDENT AREA FDS! " FILENAME) : 
: 998 1100 IF .IDENT_LENGTH GEQU SBYTEOFFSETTFI2$0_CREDATE) 
: 999 1101 THEN 
: 1000 P 1108 DUMPSPUT FAQ( (* Revision number:!22* !UL', 
> 1001 110 . IDERT_AREACFI2$W_REVISION));: 
; 1008 1104 IF IDENT TPENGTH ate SBYTEOFFSET(F12$Q_REVDATE) 
> 100 1105 THEN 
: 1004 1106 4 BEGIN 
: 1005 1107 4 DUMPSFAO(' Creation date:!24* ‘) 
: 1006 1108 4 FORRAT DATE_VALUE (IDENT_AREALF 1280 > éREDATED): 
: 1008 1110 IF .IDENT_LENGTH GEQU SBYTEOFFSET(FI2$Q_EXPDATE) 
+ 1009 1111 THEN 
: 1010 1112 4 BEGIN 
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DUMPS$FAO(' Revision date:!24* °); 
FORMAT_DATE_VALUE (IDENT_AREALF 12$Q_REVDATE)); 


END; 
— GEQU SBYTEOFFSET(FI2$Q_BAKDATE) 


CFM2$C FORMATS: 


COUNT = ROT(..P, 1) AND (1*30-1); 
LBN = pL fnzéi_Cen 1; 


SSFERES 


; 1113 4 

; 101g 1114 4 

> 101 1115 

3 1014 1116 

; 1015 111 

: 1016 1118 4 BEGIN 

3; 101 1119 4 DUMPSFAO(' Expiration dat {> *); 

; 1018 i p 4 FORMAT DATE VALU (IDENT_AREACF i2$Q_EXPDATE)); 

Py i ° 

3 1020 11 é ; IF . IDENT LENGTH GEQU FI2S$C_LENGTH 

> 1021 11 THEN 

; 10 é 11204 4 BEGI 

: 10 1125 4 DUMPSFAO(' Backup date: 126s "); 

; 1088 i $ 4 FORMAT_DATE_VALUE (IDENT_AREALF 12$0_BAKDATE)); 
3 1026 1128 DUMPSBLANK_LINE(); 

1087 1129 DUMPSPUT_LINE (SDESCRIPTOR('Map area')); 

; Iss Aig DURPSPUT LING (SDESCRIPTOR(® Retrieval pointers')); 

; 1030 1132 UNTIL .P™GEQA .MAP_AREA + .HEADERCFH2$B_MAP_INUSEJ*2 DO 

> 1031 1133 4 EGIN | 
3 1032 1134 4 IF .PCFM2$V_FORMAT] EQL FM2$C_PLACEMENT 
> 1033 1135 4 THEN | 
3 1036 1136 5 BEGIN 

; 1035 1137 5 DUMP$FAO('!8* Placement control: '); 

> 1036 1138 5 FORMAT_BIT_STRING(.PLO,0,14,0], PLACEMENT_CODES); | 
> 1037 1139 5 P = .P™+ 23 

3 1038 1140 5 END 

> 1039 1141 4 

: 1040 1148 5 BEGIN 
> 1041 1143 5 LOCAL 
; 104¢ 1144 5 COUNT, LBN; | 
> 104 1145 § 
5 1064 1146 5 CASE .PLFM2SV_FORMAT] FROM FM2$C_FORMAT1 TO FM2$C_FORMATS OF 
> 1065 1147 5 SET | 
: 1046 1148 5 

> 1047 1149 5 CFM2$C_FORMAT1): 

> 1048 1150 6 BEGIN 
> 1049 1151 6 COUNT = .PCFM2$B_COUNT1); 

> 1050 1158 6 LBN = .PLFM2$W LOWLBN ; 
> 1051 1153 6 LBN<16,16> = .PCFM2$V_HIGHLBNI; 
3: 1052 1154 g P= .P + 4; 
3; 1053 1155 END; 

> 1054 1196 3 

3 1055 115 CFM2$C_FORMAT2): 

3 1096 1158 6 N 

: 105 1159 6 COUNT = ,PCFM2$V COUNT2]; 

> 1058 1160 6 LBN = .PLFM2$L_LBN2J; 

3; 1059 1161 P = .P + 6; 

21 116 END; 

:1 116 

:1 1164 5 

3 1188 6 

3; 1 1169 6 

:1 116 : 

:1 116 
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P= .P + ° 
: 138 1388 § cer: in 
e COUTRAN : ; 'XL ae) ite 
a ? p 158% & DUMPSPUT_FAO ("XL SIAR | 
+ 1129 1231 6 P= p44; 
: 1130 1536 END; | 
: 113 : TES 
: 1138 1538 END 
ei 15% 2 UNTIL .P GEQA HEADERCFH2$W_CHECKSUM); | 
ett: 1539 END; | 
; i i esee | 
: 1138 1240 BEGIN | 
: 1139 1241 LOCAL | 
: 1140 ist¢ FILE VECTORE20.6YTE3 | 
etre 156 FILETLENGTH; | 
Hs is File identification:!18* (!UL,!UL)', 
; ° e iden - 
3 1169 S 15e8 sUMPSMEADEREE HI $U_FID NUMS 
: 3108 a *HEADERCENISU=F 1D-¢E035 ites ea en*. 
s 1367 1589 DUMPSPUT FAO’ “Stricture Level and version:!10* !UL, 
3 1148 e isee EADERCFH2$B_STRU Hy} 
: 1183 et HEADER FHo8B-STRUCVE ab EN 
: 113) 4 1338 HUMP SMEADERLEHISB_UICG GnGUPS 16, oR “HEADERCFH1S8 _UICMEMBER]) ; 
; ; @ 0 | 
: 1138 1586 SUMP PORMAT _PROTECTIONG ci READERGH Su, FiLepRoT3, RWED'); 
: 135 158 DUMPRORMAT BIT’ STRINGS MEADEREEN Su, FILECHARI, FCH_CODES); | 
1437 1389 FORMAT RMS-ATTRIGUTES (AEADERCFHI SW RECATING] 
: 1138 1561 DUMP SPAT CINE CSDESCRIPTOR(* ‘Identification area')); 
: 160 eee ee AREACTIISY. FILENAME) - SBYTEOFFSET(NNBSW _NAME) , | 
: 1161 ’ : 
; 1168 1568 DURPSPUT Site File nane: !28s ‘AF | 
i 1164 1569 DUMPSPU PUT ae Revist on number: !22* !UL", 
: 1165 1368 oT DERT TAREACE1164_REVISION]) :, nae | 
; Te | 
: 1167 139 DUNPPORMAT_ODS{* “DATECY VALUE CIDENT AREACFI18T_REVDATED) ; | 
; 1189 i271 SUMP FORMAT ODS! <DATE VALUE CLOENT AREALF118T_CREDATE); | 
iin : i DUMPPORRAT _ODS1 BATE VALU ISENT-A “AREALF 11$T_EXPDATE) ; | 
; 117 LIN 
J 1275 DUMPSBLANK Pere 
: 1178 137 DUMPSPUT is sen Sent nuaber:!13¢ UL", 
3 1175 P 127 DUMPS$PU “AREACFMISB EX SEGNUR a 
1178 13) umpSPUT~FAOC Extension file identification: !8 
2117 eis? ‘ “AREACFM1$W_EX_FILNUM, 
tt ae -ARE AEE EN Eu 
a 
; 1181 p 1588 pumpsPur™ Rott heteteval pointer count size:!9* !UL 
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s 11 ¢ 1284 MAP ~AREATFM1$8_ COUNTSIZE]); 
511 1285 DUMP$PUT TAFAOK Retr eval {pointer LBN size:!11* !UL’, 
711 1286 MAP-AREATFM1$8_LBNSI 
; 1185 1 4 pumP$PuT— AN ( . ares yo in use:!16* !UL', 
; 1186 1288 ,MAP~AREALFM1$B_INUSEJ) 
: BH : +4 DUMPS$P BAR Sonn meneh ares words available:!13* !uL', 
: 1189 1291 pumPsPuT= LINE (SDE SCRIPTION Retrieval pointers')); 
3; 1190 1 35 «MAP_AREA + FMISC_POINTERS; 
: 113) : 7 i OT” .P”GEGA MAP AREA + FM1$C POINTERS + .MAP_AREACFM1$B_INUSEJ*2 DO 
; 1198 P1295 4 DUMPSPUT 45 Sp stir '10UL'8* LBN: !10UL', 
3: 1194 P1296 4 “PEER SB 1, 
3 1195 1297 & PCFM1SW_ -[OWLBN + .PCFM1$B_HIGHLBNIJ“*16); 
3: 1196 1298 4 P= .P +4; 
3; 1197 1299 END; 
: 1198 1300 : 
; 1199 1301 DUMP LINE(); 
3; 1200 P 1308 DURPSPUT PROC Checksum: !33* !'UL', 
+ 1201 130 ABE ERCFHOSW. CHECKSUM) ; 
5 1506 1304 
: 120 1305 
: 1204 1306 RETURN 1; 
3; 1205 1307 1 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
70 75 6B 63 61 62 20 6F ri 09 00380 P.ACC: .ASCII <9>\No backup\ g 
63 61 63 20 6B 63 61 62 2D 65 74 69 72 2f iB ate P.ACD: .ASCII <16>\Urite-back cache\ ; 
6B 63 65 68 63 20 4 61 65 53 OA $0398 P.ACE: .ASCII <10>\Read check\ : 
68 $s 65 68 63 20 6 4 69 72 § %8 te P.ACF: .ASCII] <11>\Write check\ 3 
73 65 62 20 3 75 6F 75 67 69 a $f of 33 vi +4 ra P.ACG: .ASCII <19>\Contiguous best try\ : 
65 68 63 6F 6C 20 73 73 65 63 63 61 65 44 Of 3 ce P.ACH: .ASCII <15>\Deaccess locked\ 2 
73 75 6F 75 67 69 74 6E 6F 43 OA 003D6 P.ACI: .ASCII <10>\Contiguous\ : 
65 63 63 41 20 64 65 74 70 75 72 72 6F 43 1 8 E1 P.ACJ: .ASCII <29>\Corrupted Access Control List\ 3 
74 73 69 4C 20 6C 6F 72 74 6E 6F 4 0 73 7 oee : 
6C 69 66 20 6C 6F gf 0 5 3 OOSFF P.ACK: .ASCII <10>\Spool file\ 3 
79 72 6F 74 63 65 9 44 09 rt P.ACL: .ASCII] <9>\Directory\ 3 
20 64 61 62 20 64 65 74 63 73 H+ 7 He: 22 43 ba o4 P.ACM: .ASCII <20>\Suspected bad blocks\ : 
6C 65 64 20 72 6F 66 20 64 65 68 7 ol 3 ii me P.ACN: .ASCII <17>\Marked for delete\ : 
72 61 68 63 20 74 6F 6E 20 65 63 61 ? 23 iy ab P.ACO: .ASCII <17>\Space not charged\ : 
74 65 6C 65 64 20 6E 6F 20 65 73 61 2 45 oF beer P.ACP: .ASCII <15>\Erase on delete\ : 
a48p -BLKB 3 : 
001 460 -LONG 1 3 
» Ohe P.ACB -LONG 0 3 
00000000* 00000000" 00000000" 00000000" 00000000' r pADOFESS PACE. PACD. P.ACE, P.ACF, P.ACG, = : 
00000000 00000000 6 " 8b¢ -LONG 0, 0, 0 : 
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P.ADC: .ASCII \Header area\ 
-BLKB 1 


00000000" 00000000' 00000000" 00000000' 00000000' iat Me - ADDRESS Ari a P.ACL, P.ACM, P.ACN, - 5 
F 6 62 69 7 5 63 63 4 AC P.ACR: .A \Accessi it\ : 
$f oF of $8 $3 gc $e 69 B 3 5 : 29 %9 5 C SCIJ ccessible only in recovery unit 
72 6 6 of $3 $3 ie 20 $3 6 6 g $f 33 if se P.ACS: .ASCII <28>\Enable recovery unit journal\ : 
6A 20 65 67 61 6D 69 5 és 72 of 6 $3 2 )° ca P.ACT: .ASCII <20>\Before image journal\ : 
6F 6A 20 65 67 61 6D 69 20 $5 oe 7 6 3 ; ff P.ACU: .ASCII <19>\After image journal\ : 
6F 6A 20 6C 69 61 72 74 20 74 69 9 sf if 1 13 P.ACV: .ASCII <19>\Audit trail journal\ : 
6C 61 6E€ 72 7 ape : 
90000005 8 “LONG 5 : 
00000000" 00000000° 00000000' 99009900, ot ae cf p-acer ADDRESS F AER PACS. P.ACT, P.ACU, P.ACV 3 
MERE 5 xac 3 
64 6€ 75 6F 62 20 72 65 64 6E 69 6C 73 $3 ie ry P.ACY: .ASCII <17>\Cylinder boundary\ 3 
4E 42 4C 20 63 69 66 69 $3 65 70 53 ot 58 P.ACZ: .ASCII <12>\Specific LBN\ : 
4E 56 52 20 63 69 66 69 63 65 70 5 C $3 P.ADA: “AStLt ster\epee tte RVN\ : 
90000008 74 “LONG 14 : 
00000000' 00000' 78 P.ACW: .ADDRESS P.ACX, P.ACY 3 
00000000 00000000 00000008 00000008 agaaee 444 rs “LONG 0, 0, 6, 6, 0, 0, 0, 0, 0, 0 3 
§0090090" Ooppooyy” 4} ADDRESS P.ACZ, P.ADA ; 
61 65 72 61 20 72 65 64 61 65 48 » g 

0B BC 

4! co 

o, 00803 

P3 

EC 

FB 

f 

4 
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000000 P.ADB ~LONG 11 : 

00000000' eADDRESS P.ADC 3 

61 63 69 66 69 74 6€ 65 66 49 20 20 20 20 P.ADD: .ASCII \' Identification area offset:!11* ‘UL\ ; 
See one eee es eh 7 
$1 $5 ie gh $3 79 3! 38 $ eo 20 20 i P.ADE: .ASCII <28>\ Map area offset:!22* 'UL\ : 
63 20 3 73. «65 Fe: 63 41 20 20 20 $3 3 P.ADF: .ASCII \'° Access control area offset:!11* 'UL\ : 
66 06 OF St SF 86 Sh el Sh Sh Ok Pe 
64 65 76 72 65 $} 65 52 20 20 $5 3 4 P.ADG: .ASCII \! Reserved area offset:!17* !UL\ : 
31 21 3A 74 65 73 66 66 6F ee ¢ ; : 
6F 69 73 $f 65 74 78 45 20 36 ey 9 3 P.ADH: .ASCII \% Extension segment number:!13* !UL\ : 
65 62 6D 75 6€ ¢0 4g si 2 2, c 9 : 
75 74 63 75 72 74 53 20 9 0 9 3 79 P.ADI: .ASCII \- Structure Level and version:!10* !U\ ; 

6 76 eo St 86 Sh 8 8 33 Sk be SF Ouse 

ac 55) (81 ¢ 4C Al SASCIT \L, !UL\ ; 

$f $9 ¢ 65 6C 69 $6 , ° p A A7 P.ADJ eASCII \# File identification: '18* C'UL,'UL.'\ ; 

1 3A 6€ 6F 69 7 6 69 6 3 

21 2c 4C 5 21 C 4C 3 1 ; it acest ‘walt : 

69 73 6€ 65 74 78 45 8 20 0 2 be P.ADK: "ASCII \¥ Extension file identification: '8* (\ : 
SHEER ER EEE Ee Be ! 
29 4C 8 1 2c 4c 55 21 5 4C $2 21 FA ASCII = \#UL,!UL,!UL)\ : 


’ 


| 


3 
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14-Sep-1984 DUMP. SRC JDUMPHEADE .832;1 (14) 

61 72 61 68 63 65 6C 69 46 2 01 706 P.ADL: .A <30>\ ile ch :! : 
4 ag $1 $ ¢ $9 $ f i 6 28 $8 20 90 i it DL SCII <30 File characteristics:!17* \ 
77 20 61 65 72 61 70 61 4D 20 7s P.ADM: A "OM i 1168 | ; 
% 8 $1 Sf fe $f $8 88 St Bs $0 3 ; GF 0078 — peer aero ene Sepa : 
64 6F 6D 20 73 G $3 Hy ; $i 6 9 48 748 P.ADN: .ASCII <24>\ Access mode:!26* !UL\ : 
72 65 6f 4 i 6 é3 66 $9 46 0 2 20 9 18 O76) P.ADO: .ASCII <27>\ File owner UIC:!23* !%1\ : 
65 74 6F $3 20 0 $3 é§ 46 ‘ i 30 arse P.ADP: .ASCII <25>\ File protection:!22* \ : 
20 6E 69 6C 20 6B 63 61 42 0 20 0797 P.ADQ: .ASCII \3 Back Link file identification:!8* (\ : 
DELSSCCCUOEEELS eerie ers a 
29 4C gf 3 3c 4C gi 21 2 4C $2 21 007BF ASCII \!UL,!UL,!UL)\ : 
6F 63 20 6C 61 6E 2 75 6F 4A 20 206 30 20 1F QO7CB P.ADR: .ASCII <31>\° “Journal control flags:!16* \ : 
36 31 21 3A 73 67 61 6C 66 20 6C 6F i i 070A : 
6C 62 20 74 73 65 68 67 69 48 20 20 20 2 OO7EB P.ADS: .ASCII \'' Highest block written:!16* !UL\ ; 
3% 31 «51 3A GE 65 74 74 69 «72 ? 20 $8 $3 gE O07FA pp cnarendthecn ate Balai aah hes : 
20 6E 6F 69 74 61 63 69 66 69 74 §) 8 $3 rb G0s0e P.ADU: .ASCII \lIdentification area\ : 
00821 .BLXS 3 ; 
00000013 00824 P.ADT: <LONG 19 ; 
00000000" 00828 “ADDRESS P.ADU : 
3A 65 6D 61 GE 20 $5 6¢ 69 46 20 0 20 @9 19 008 C P.ADV: <ASCII <25>\ File name:!28* !AF!AF\ : 
3a 65 6D 61 6E 20 65 6¢ 69 46 0 i 20 29 I 00846 P.ADW: ASCII <22>\ File mame:!28* !AF\ : 
6E 20 $f 6f 69 23 $9 £8 $5 e 9 20 29 26 yf 90850 P.ADX: .ASCI] <28>\ Revision number:!22* !UL\ : 
64 20 6 6F 69 74 $i 4 r 43 31 ? 29 , it ee $4 P.ADY: .ASCII <23>\ Creation date:!24* \ : 
64 20 6E 6F 69 73 69 ‘ 3 : 0 0 20 : V7 0089¢ P.ADZ: .ASCII <23>\ Revision date:!24* \ : 
6E 6F 69 7% 1 72 69 20 78 43 20 0 20 20 19 OOBAA P.AEA: .ASCII <25>\— Expiration date:!22* \ 
7, 61 64 20 70 75 6B 6 gi 42 @0 Q i 20 if O08C4 P.AEB: .ASCII <21>\ Backup date:!26* \ : 
61 65 $s 61 20 70 61 4D OOBDA P.AED: ASCII \Map area\ : 

O8E2 -BLKB 
90000008 OBE, P.AEC: LONG : 
0000000" O08E8 -ADDRESS P.AED ; 
70 20 6C 61 76 65 69 72 % $3 22 30 70 ¢3 ee Boe P.AEF: .ASCII \ Retrieval pointers\ : 
$909 .BLKB 2 
00000016 00904 P.AEE: LONG 22 ; 
0090000 * 00908 “ADDRESS P.AEF : 
20 74 6E€ 65 6D $5 $3 & re: 29 $8 . 38 ; t a4 P.AEG: .ASCII <24>\!8* Placement control: \ : 
30 1 21 20 3A 74 GE 75 6F 43 20 2A § st if; a308 P.AEH: ASCII <30>\!8* Count: !10UL'8* LBN: !10UL\ : 
5 30 31 21 20 3a GE 42 46C 20 2a 38 21 4C 33 0934 ; 
20 6C 6F 72 76 6E 6F 43 20 73 73 5 $3 63 41 944 P.AEJ: .ASCII \Access Control List\ : 


nn —_—-— SS 


3 
DUMPSHEADER ibese -1984 01:30: AX=11 Bliss-32 V4.0-742 P 41 
vOu~000 12-8087 1382 93:39:98 DUMP. SRCJDUMPHEADE B32, 1 29° 14) 
0957 -BLKB 1 
90000013 0998 P.AEI: LONG 19 : 
000000' 09 C .ADDRESS P.AEJ : 
gp 960 P.AEL: ASCII <13> : 
A $49 tf <10> : 
SSE, HERE Pons BNE Fs a 7 
61 20 64 65 76 72 65 73 65 72 20 72 65 3 3 096¢ P.AEN: ASCII \User reserved area\ : 
O97e .BLKB : 
9900001 0980 P.AEM: <LONG 18 : 
0000000" 00984 -ADDRESS P.AEN : 
20 42 58 21 20 20 20 20 20 ? i 0 0 y 098 P.AEO: <ASCII  <23>\ ‘XB LAR : 
20 20 20 57 58 21 20 20 20 26 20 0 0 1 00940 P.AEP: .ASCII <20>\ Kw EARS : 
22 20 20 20 4C 58 36 21 20 20 20 9 20 36 Ie 00985 P.AEQ: .ASCII <18>\ '6XL = EART'\ : 
2 46 41 21 22 20 20 4¢ 58 21 20 20 30 30 be So9ck P.AER: .ASCII <14>\ ‘XL TEAR : 
4 6E 65 64 69 ¢0 65 6C 69 46 20 9 0 20 26 00907 P.AES: ASCII \& File identification:!18* (!UL,!UL)\ : 
OSE AEE RHE Go Biss : 
20 65 72 75 74 63 $? 72 7% 3 20 20 60 $ 2D OOSFE P.AET: .ASCII \- Structure level and version:!10* 'uU\ : 
iwi RAE H BE EB oie... 
ac 55 3 20 €C 4C O0A26 eASCII. \L, !UL\ : 
72 65 3 4 6f 20 $5 $¢ $9 46 20 20 20 g 18 OOAgC P.AEU: .ASCII <2?>\ File owner UIC:!23* !%1\ ; 
65 74 6F 72 20 20 $5 6¢ 69 46 20 20 20 20 19 OOAd8 P.AEV: .ASCII <25>\ File protection:!22* \ : 
61 72 61 68 63 20 65 6C 69 46 20 20 20 20 1 OA62 P.AEW: ASCII <30>\ File ch teristics:!17* \ : 
oa 5h $1 SF Sk OHS 88 BS $2 $$ EB $8 e230 e3 Boar BNE tree ee eae 
20 6E 6F 69 74 61 63 69 66 69 7% 6f 65 $4 49 OOA8I P.AEY: .ASCII \lIdentification area\ : 
00000013 Boade P.AEX: .LONG 19 : 
00000000" 00a98 -ADDRESS P.AEY ; 
3A 65 6D 61 6E 20 65 6¢ 69 46 0 i 20 0 SOA9¢ P.AEZ: ASCII <22>\ File mname:!28* 'AF\ : 
6€ 20 6 6f 69 23 $9 r $5 2 0 20 20 6 GOB P.AFA: .ASCII <28>\ = Revision number:!22* 'UL\ : 
64 20 6E& 6F 69 73 $° oe 9? 6 : 2 0 ert P.AFB: .ASCII <23>\ Revision date:!24* \ : 
64 20 6E 6F 69 7% 3 $3 2 ; ’ ° 26 si P.AFC: .ASCII <23>\ Creation date:!24* \ : 
6E 6F 69 7% 61 7 3 rs is 20 0 20 OB00 P.AFD: .ASCII <25>\ Expiration date:!22* \ 
61 65 72 61 20 9 P.AFF: .ASCII \Map area\ : 


F 

A 

2 . 

; P.AFE: .LONG 
C P.AFG: -ASCII \% Extension segment number:!13* 'UL\ 


oo 
oo 
SVUGNMSO COMNMNNOrwr 


oo-V"0OSCOoO —f£OfOFf 
oo 
oo 


0 6€ 6F 69 73 $f 65 74 78 
we B4A 
0859 P.AFH: .ASCII \3 Extension file identification: '8* (\ 


A 72 65 62 


20 6€ 6F 69 73 6€ 65 74 78 
61 65 69 66 69 74 6E 65 64 


our SO FRO one 
Surunreee SSor~we wee 
Neoletetotototototos 
oo 
SoD aaae 
—o 


o 
m 
and 
So 
~ 
=~ 
AMO 


Ou 
eee Ge Ge ee Ge ee 


Snronrwrnr 
Mmoroe 
ArIWION 
COONS 


-—————_—_ - —-- ~-—-—- -- 


DUMPSHE ADER 
voe-000 


#8 
ZI 
Y 


3A 
70 


36 


6C 
69 


4 
20 
65 


20 


4 

; 
65 
4E 


7 
6 


72 
61 


76 


3A 
20 


21 


SO NALS VOOvr 
ao WOnNo WIn"oOulom 


o 
“ 


74 
3A 


3A 


OnMnm NMRMEN MOTT 
oo MOMON —WwhoO 


o 
o 


6E 
4E 


6D 


vw 


oo 


oofon, 
rw 
MUI co 
ww 
wn 


~ 
> 
“No 
onul 
ww 
vir 


FFO4 


00000000' 
00000000" 


000000006 


| 
| 
| 
| 


A 6 6F 69 74 

1 “& > 
gg & & $0 
21 fi 65 oh 44 
0 20 20 20 5 

4 6€ 69 6F 9 

1 31 21 3A 

0 0 rs 

0 64 6F 
4¢ 4 sf 
Q 0 5 

0 4 72 6F 

Q 2A 33 34 4 

0 20 20 20 

6 4 6€ 69 6F 
00000016 

00000000" 

20 eA 38 21 3 
cA 38 21 4 i? 
63 65 68 43 11 
4C 55 21 

OFFC 

5B 00000000" EF 9E 
SA FOB8 CF 9€E 
5 FDDS ~=CE 9 
5 04 ac D 
57 0D 
CA 01 FB 
58 38 it 
OS2A 31 
EF 000000006 00 00 
EF 000000006 0° +4 
52 6745 i 
54 01 A? QA 

53 6744 

53 26 C 
57 C 
50 O1F CO 9E 
015 B OF 
00 1 FB 
5 +4 

0160 CB 9F 


~“ 
— 


te nd kB >> > O@~ 
OO "ODO YKVOS NOM HEM ENO 


OOQCOOoOooQoQoQooOoooooo 


Quins wi 
maAmnmon 


SOOOOOCOCOCOOCOOOOCoOOOoOoOOooOooO 
pele lolol ala lel ol alae lel eleololoeleolol ala) 
PO DMMAE & & FAM "OO 


DWAD DOWD NWO OW MONWIM O 


COOOOCOOCOOCOOOOOOOCOoOOoOoOooo 


foo 


3 
Se 
Se 


30 


v 
> 
~” 
=z 


P.AFO: .ASCII 


P.AFP: .ASCII 


FCH_CODES= 


N-CODES= 
PLACEMENT COBES= 


18: 


- LONG 2 
-ADDRESS P.A 


AX-11 Bliss-32 V 742 
DUMP. skt to emPAE NDE 0553. 1 


'UL,!UL)\ 


\!UL, 
\C Retrieval pointer count size:!9* !U\ 


Retrieval pointer LBN size:!11* !UL\ 
Map area words in use:!16* 'UL\ 
Map area words available:!13* 'UL\ 


\ Retrieval pointers\ 


~AFN 
<30>\!8* Count: !10UL!8* LBN: '10UL\ 


<17>\Checksum:!33* 'UL\ 
P.ACB 


P_ACW 
SYSSFORMAT_ACL 
SCODES,NOWRT,2 


DUMPSONE_HEADER, Save R2,R3,R4,R5,R6,R7,R8,-; 
R9. R10,RT1 

FCH_CODES, R11 
DUMPSPUT_FAO_, 
-556(SP)> SP 
HEADER, R? 


#1, CHECK_HEADER 
RO. STRUCCEV 


R10 


32$ 
DUMPSGL_WIDTH, LINE_DESC 
DUMPSGL “ouTDESC+4, CINE_DESC+4 


( 
(R7)(R5), IDENT_AREA 

1(R7) 

(RID CRON MAP 

IDENT AREA, a CREA, IDENT_LENGTH 


E 
pADB MAP “LENGTH 
- DUMPSPUT_LINE 


RS” 
P.ADD 


Page 42 


(14) 


0942 | 


eee a ee 


3 
| DUMPSHEADER ibese -1984 01:30: AX-11 Bliss-32 V4.0-742 
vor 1en8e8- 19k. 03:30:98 YOUMP. SRCJDUMPAEADE .B32¢1 
6A 92 FB 00069 CALLS #2, DUMPSPUT_FAO_ 
4 pp 06C PUSHL 4 
0188 ¢ F 06 PUSHAB P.ADE 
GA FB 000 CALLS #2, DUMPSPUT_FAQ_ 
4 OE A 3 07 MOVAB 14(R7), R& 
02 58 D1 00079 CMPL TRUCLEV, #2 
Q 3 0007¢ BEQL $ 
03 j OO7E BRW 9$ 
7E 02 a7 9a 00081 28 MOVZBL 2(R7), =(SP) 
01A5 CB OOF 00085 PUSHAB P.ADF 
6A 62 FB 00089 CALLS #2, DUMPSPUT_FAO_ 
7E 03 A? 9A b008¢ MOVZBL 3(R7), =(SP) 
01CcD CB OOF PUSHAB P.A 
6A 62 FB 00094 CALLS #2, DUMPSPUT_FAO_ 
7E 06 A? %3C 00097 MOVZ2WL 4(R7), -(SP) 
O1EF CB 9F 00098 PUSHAB P.ADH 
6A 02 FB 0009F CALLS #2, DUMPSPUT_FAO_ 
7E 06 A? 9A OOOA2 MOVZBL 6(R7), =(SP) 
7E 07 AZ 9A 0006 MOVZBL 7(R7). =(SP) 
0215 CB 9F OOOA PUSHAB P.ADI 
6A 03 FB OOOAE CALLS #3, DUMPSPUT_FAO_ 
7E 0c AZ 9A 00081 MOVZBL 12iR?), =(SPJ 
7E OA Az 3¢ 00085 MOVZ2WL 10(R7). =(SP) 
50 08 a7 3C 00089 MOVZ2WL 8 (R7), RO 
51 0D a? 9A 000BD MOVZBL 13(R75, R1 
51 51 10 78 000C1 ASHL #16, Ri, R1 
6140 9F 000C5 PUSHAB (R1SCROS 
0243 CB 9F 000C8 PUSHAB P.ADJ 
6A 04 FB 000CC CALLS #4, DUMPSPUT_FAO_ 
12 A? 9A OOOCE MOV2ZBL 18(R7), -(SPT 
7E 10 A? 3¢ 00003 MOV2WL 16(R7). =(SP) 
64 %3C 00007 MOVZ2WL (R4), RO 
51 13 A? 9A OOODA MOVZBL 19(R?), R1 
51 51 10 78 OOODE SHL #16, Ri, RI 
6140 9F O00E? PUSHAB (R1SCROS 
026E CB 9F OO0E PUSHAB P.ADK 
6A 04 FB 000E9 CALLS #4, DUMPSPUT_FAO_ 
14 AZ 9F OOODEC PUSHAB 20(R7) 
0175 CA 01 FB OOOEF CALLS #1, FORMAT_RMS_ATTRIBUTES 
02A2 CB 9F OO0F4 PUSHAB P.ADL 
AO AA 01 FB 000F8 CALLS #1, DUMPSFAO 
38 DD 990K C PUSHL R11 
34 A? DD OOOFE PUSHL  52(R7) 
0B AA 0¢ FB 90191 CALLS #2, FORMAT_BIT_STRING 
54 3A A? 9A. 00105 MOVZBL 58(R7), R4& 
54 pp 0109 PUSHL 4 
02c1 (CB 9F 00108 PUSHAB P.ADM 
6A 02 FB O10F CALLS #e UMPSPUT_FAO_ 
7E 38 «6A? «(9A 00112 MOVZBL 59(R7), -(SPT 
02E4 ¢ 9F 00116 SHAB P.ADN 
6A FB OOTIA CALLS #3 DUMPSPUT _FAO_ 
3c C«AM pd 0110 SHL  60(R7) 
O2FD CB 9F 00120 PUSHAB P.ADO 
6A 02 FB 1 4 CALLS #2, DUMPSPUT_FAO_ 
0319 CB 9F 00127 PUSHAB P.ADP 
AO AA 1 FB 01 B CALLS i DUMPS AO. 
44455752 F DD O012F PUSHL  #1145395026 
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POSE Oe OOH Re Oe Oe SHOE OE Oe SHOE SHOE SH Oe Se Oe Se Oe Se Oe Se Oe Be Be Oe Se Se Be Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Be Be Be Se 
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DUMPSHEADER 16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-742 Page 44 e) 
VOeLO00 1e-08- 1382 9:39:98 DUMP. SRC. ]DUMPHEADE .832;1 9 1a) 
7E 40 A? 3C 00135 MOVZWL 64(R7), =(SP) ; 
0138 cA 0¢ FB 0139 CALLS #2, FORMAT PROTECTION : 
E 46 A? OA 91 : MOVZBL 70(R7), =(SP) + 1081 
fe 44 A? 3C 0014 MOVZ2WL 68(R7), <(SP) : Mm 
5 42 aA? 3¢ 0146 MOVZWL $6(R7), RO : - 
51 4 A? 9A OO14A MOVZBL 71(R7), R1 : El 
51 51 10 78 0014 SHL #16, RI, R1 : El 
6140 9F O13 PUSHAB (R1SCROS : El 
0333 CB 9F 001 PUSHAB P.ADO : El 
6A 04 FB O12 CALLS #4, DUMPSPUT_FAO_ : El 
0367 CB 9F 0015C PUSHAB P.ADR : 1082. El 
AO AA 01 FB 00160 CALLS #1, DUMPSFAO_ : | El 
00¢8 CB OF 00164 PUSHAB FJN CODES + 1083 El 
7E 48 aA? 3C 00168 MOVZWL 72(R7), =(SP) : El 
0B AA 0@ Fe O016¢ CALLS #2, FORMAT_BIT_STRING : | EI 
4C A? DS 001 TSTL 76(R7) + 1086) E 
09 13 0017 BLEGQ 35 : | EI 
50 4c oa? gi C3 0017 SUBL3 #1, 76(R7), RO : E | 
0 DD OOI17A PUSHL RO : | El 
02 11 0017C BRB 4$ : El 
7E 04 OO17E 3$ CLRL ss = (SP) : | C 
0387 CB 9F 00180 4$ PUSHAB P.ADS 3 C 
6A 02 FB 00184 CALLS Ag DUMPSPUT_FAO 3 $ 
000000006 00 00 FB 00187 CALLS #0, DUMPSBLARK_LINE + 1087 
03C0 CB 9F 0018E PUSHAB P.ADT : 1088 
000000006 00 01 FB 00192 CALLS #1, DUMPSPUT_LINE : 
14 56 D1 00199 CMPL =‘ IDENT_LENGTH; #20 : 1089 
d— 1F 0019C SU : 
01 A? 9A 0019E MOVZBL 1(R7), RO + 1091. 
67 9A O01Ag MOVZBL (R7), : 
51 C2 OO1A UBL2 1, : 
50 D1 001A8 CMPL = RO. #60 > 1092 | 
14 1F OO1AB BLSSU 5$ : | 
36 =A2 OF OOTAD PUSHAB 54(IDENT_AREA) > 1096 | 
42 8F 9A 00180 MOVZBL #66, -(SP) : 
52 DD 00184 USHL IDENT_AREA : | 
14 DD 00186 PUSHL #20 ; 
03c8 CB 9F 00188 PUSHAB P.ADV : 
05 FB 001BC CALLS #5, DUMPSPUT_FAO_ ; | 
0B 11 001BF BRB : | 
52 DD 001C1 5$ PUSHL IDENT _AREA > 1099 | 
14 DD O01¢3 PUSHL #2 ; | 
03E2 cB 9F O01C PUSHAB P.ADW : 
p FB 001C9 CALLS #3, DUMPSPUT_FAO : 
6 D1 OOICC 6S: CMPL DENT_LENGTH> #22 > 1100. 
08 1F OO1CF BLSSU : 
4 =A 3¢ 00101 MOVZ2WL 20(IDENT_AREA), -(SP) > 1103. 
03F9 cB F 00105 PUSHAB P.ADX ; 
p FB 00109 CALLS #2 DUMPSPUT FAQ : 
6 D1 001DC 7$ CMPL IDENT _LENGTH; #30 > 1104, 
10 Ff O1DF BLSSU BS ; | 
0416 CB 9F OO1E1 PUSHAB P.ADY : 1107. 
01 FB OiES CALLS #1, DUMPS ; 
16 A2 9F OO1E9 PUSHAB ee (IDENT ARER) + 1108 
gi FB gue CALLS #1, FORMAT DATE VALUE : 
6 D1 OO1F1 8 MPL IDENT LENGTH, #3 > 1110 
10 1F OO1F4 BLSSU 9S ; 


3 
-$ep-1984 01:30: AX-11 Bliss-32 V4.0-742 Page 45 
va al | 18-se0-1984 EH Be te ta ree eee (14) 
PUSHAB P.ADZ 3 1113 
AQ AA _ 6 ob gree CALLS #1, DUMPSFAO : 
1€ A2 OF Ole PUSHAB 30(IDENT AREA) + 1114 
00cS CA 1 FB 00201 CALLS #1, FORMAT DATE_VALUE : 
E 58 D1 00 06 9$: CMPL IDENT LENGTH, #26 + 1116 
10 1F 00 BLSSU 10 : 
0446 CB 9F 00208 PUSHAB P.AEA + 1119 
AQ AA 01 FB O020F CALLS #1, DUMPSFAO : 
26 «A2 OF 00213 PUSHAB 38(IDENT AREA) ; 1120) 
00cS CA 1 FB 00216 CALLS #1, FORMAT DATE_VALUE F | 
00000078 = &F 38 pI $0 18 10$: CHL IDENT _LENGTH, #720 : 1122, 
0460 £8 oF Steet == URHAB Pep j 12s, 
eon, 2E 2 oF 60 C PUSHAB 46(IDENT AREA) + 1126) 
00cS CA 01 FB O020F CALLS #1, FORMAT DATE_VALUE : 
000000006 60 00 FB 00234 11$: CALLS #0, DUMPSBCANK_CINE : 1128) 
0480 CB 9F 00238 PUSHAB P.AEC ; 1129) 
000000006 00 01 FB 0023F CALLS #1, DUMPSPUT_LINE : 
0440 (CB 9F 00246 PUSHAB P. : 1130. 
000000006 0 01 FB O024A CALLS #1, DUMPSPUT_LINE : | 
56 53 0 00951 MOVL MAP AREA, P > 1131, 
50 6344 er 00254 12$:  MOVAW (MAP AREA)CR4J, RO : 1132) 
2 a pest 
CO. OB 01 AG a 0095p B11 <P), #192 ; 1134 
0448 CB OF $0564 PUSHAB P.AEG : 1137) 
AO AA 01 FB 00268 CALLS #1, DUMPSFAO . 
0114 CB 9F 0026C PUSHAB PLACEMENT CODES : 1138) 
7E 66 OE 00 EF 00270 EXTZV #0, #14, TP), =(SP) : | 
0B AA 02 FB 00275 CALLS #2. FORMAT_BIT_STRING ; | 
eB ey ee ae 4 
52 66 02 5 EF OO27E 13S: EXTZV #14, #2, (P), R2 > 1146! 
02 01 35 CF $0588 CASEL R2, #1, #2 : 
002A 001¢ 0006 00287 148: . WORD 13§-148,- 
028 15$:  MOVZBL Wee148 : 1151, 
29 01 r+ zt $0590 "  MOVZWL 1 CP); LBN : 1138 
55 86 06 08 EF 00994 EXTZV #0, #6, (P)+, RS ; 1153 | 
51 10 10 4 FO 00299 INSV. RS. #16, #16. LBN : 
- Oe Ht bbSai apace fgg? t Hae | 
50 86 OE 00 EF OOOAS 16%:  EXTZV #0, #14, (P)+, COUNT 5 1159 | 
51 01 Ab 00 00 ry} MOVL 1(P), LBN : 1160 | 
en 2 eee ea Hg | 
51 Be 16 9C 00281 17S: OTL #16, (P)+, R1 1166 | 
50 51 1E O EF 00285 EXTZ2V #0, #30, R1, COUNT ; | 
51 Be DO OO2BA MOVL (PS+, LON : 1167 | 
1 DD 002BD 18%:  PUSHL LN ; 1175 
oft OR Se Baths Sawn Se 
FB 00 cs CALLS #3, DUMPSPUT_FAO_ ; 
- 83 + 02¢ BRB ne 5 1132, 


H 3 
DysPsne ADER 18-808= 1382 93:30:98 AX-11 Oh ieee a V4.0-742 Page 46 


1 DUMP. SRC. JDUMPHEADE .B32; 1 (14) | 
08 A7 9A 002CB 198 MOVZBL gR2). R : 1178) 
AZ 9A OOOCE MOVZBL 3(R7). R : 
32 D1 00203 CMPL 8 : | 
B 13 00 D6 BEQL 82 : 
000000006 00 00 FB 002D CALLS. #0, DUMPSBLANK_LINE > 1181. 
04F4 c8 OF 0 OF PUSHAB P.AEI > 1182. 
000000006 90 1 FB 002E3 CALLS i DUMPSPUT LINE : | 
6748 3 O2EA MOVAW (R7)CR2], ACE_POINTER > 1183) 
08 00 6E a 00 C 0 i movcS #0, (SP), #0, #8, ACE_BINDESC : 1184 
08 00 6E ie 00 2c 00 F5 MOvCS #0, (SP), #0, #8, ACE_TXTDESC ; 1185) 
6 95 09 FC 20$:  TSTB  (ACE_POINTER) + 1186 | 
3 13 00 FE BEQL 1 : 
50 6748 3E 00 MOVAW  (R7)CR8I, RO + 1187 
50 59 D1 00 04 CMPL ACE_POINTER, RO : | 
4A 1€ 00307 BGEQU 21$ ; 
FB AD 9 9B 00309 MOVZBW (ACE_POINTER), ACE_BINDESC : 1190| 
FC OAD 9 DO 0030D VL ACE_POINTER, ACE_BINDESC+4 + 1191) 
FO OAD 0200 8F B0 00311 MOVW #512, ACE_TXTDES ; 1198 
Fe AD 1C AE 9E 00317 MOVAB ACE_TEXT, ACE_TXTDESC+4 : 1193, 
7E 04 0031C CLRL = = (SP) : 1199. 
08 AE 04 00 0031 MOVL #4, B(SP) : 
08 AE OF 0032 PUSHAB 8(§P) : | 
0500 CB 9F 00325 PUSHAB P.AEK ; 
OC AE 50 BF 9A 00329 MOVZBL #80 12(SP) : 
0C AE OF 003 E PUSHAB 12(5P) : 
FO «6 AD OOF 00331 PUSHAB ACE_TXTDESC ; | 
FO AD 9F 00334 PUSHAB ACE_TXTDESC ; | 
FB AD OF 00337 PUSHAB ACE~BINDESC : 
000000006 00 07 FB OO33A CALLS #7, SYSSFORMAT_ACL F 
FO AD 9F 00341 PUSHAB ACE_TXTDESC : 1200 
000000006 00 01 FB 00344 CALLS #1, DUMPSPUT_LINE : | 
50 69 9A 00348 MOVZBL (ACE_POINTERS, RO ; 1201) 
50 CO 0034E ADDL2 RO, ACE_POINTER ; 
Ad 11 00351 BRB > 1186 | 
FF oS 58 91 00353 21$:  CMPB 8, #255 + 1204 
7c 13 00357 BEQL é | 
000000006 00 00 FB 00359 CALLS #0, DUMPSBLANK_LINE + 1207 
051C CB 9F 00360 PUSHAB P. : 1208 | 
000000006 00 01 FB 90 64 CALLS #1, DUMPSPUT_LINE : 
56 6748 3 0368 MOVAW (R?)CRB8), P 1209 | 
50 57 56 C3 00 oF 22$: SUBL3 P, R7, RO : 1212 | 
02 FFFFFEO3 oF 30 CF 00 3 CASEL RO, #-509, #2 : 
003D 002A 001 7B 23$: . WORD a§- $.- : 
6$-23$° ; | 
56 DD 00381 PUSHL P > 1231 
04 0D 6 8 PUSHL #4 : | 
66 pp 4 PUSHL ; 
0564 CB 9F 00 PUSHAB P.AER F 
6 4 FB 6 88 CALLS #4, DUMPSPUT_FAO_ : 
56 oe BF ADDL2 #4. P 1232 | 
8 11 BRB 27$ : 1211) 
6 DD 00393 248 PUSHL P : 1216. 
1 pp 9 PUSHL #1 : | 
7E 66 9A 0039 MOVZBL (P), =(SP) : 
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DUMP. sR 


CD DUMPHEADE .832; 1 


P.AEO 

a, DUMPSPUT_FAO_ 
27$ 

P 

#2 

(P), =-(SP) 

P.A 

#4, DUMPSPUT_FAO_ 
{4 p 

27$ 

P 


#3 

#0, #24, (P), =(SP) 
P.AEQ 

#4, DUMPSPUT_FAO_ 
43. P 

310(R7), RO 


Ne 
“oe ., 


RO -(SP) 
Z DUMPSPUT _FAO_ 
Hi BELO. 
19¢ (R7), =(SP) 
We, FORMAT _PROTECTION 
#1, DUMPSFAO_ 


\ (R7), =(SP) 
. FORMAT _BIT_STRING 


#1, FORMAT_RMS -ATTRIBUTES 
#0, DUMPSBCANK _L INE 


#i, DUMPSPUT_LINE 
ILE_NAME 
asa AREA) 
E~STRING 
FILE_N 
FILE~ LENGTH 


P.AEZ 
#3, DUMPSPUT_FAO_ 
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J 3 
DUMPSHEADER 16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-742 Page 48 
vive 12-808 -1 3b. 93:30:98 {OUMP. SRC.JDUMPHEADE .832; 1 (14) | 
7E OA A2 3¢ 0468 MOVZ2WL 10(IDENT_AREA), =(SP) : 1268 
064F cs F 4g PUSHAB P.AFA : 
6A FB 004 CALLS #2, DUMPSPUT_FAO_ : 
066C¢ cB 9F 0047 PUSHAB P. : 1269) 
AO AA 1 FB 0047 CALLS #1, DUMPSFAO : | 
0c A2 OF 00478 PUSHAB TetIDENT: ARER) + 1270) 
O0OE8 CA 01 FB 047 CALLS #1, FORMAT *6DS1 _DATE_VALUE F 
0684 cB 9F 004 PUSHAB  P.AFC > 1271 
AO AA 1 FB 04 CALLS #1, DUMPSFAO : | 
19 A2 9F 004 PUSHAB 25(IDENT_AREA) : 1272, 
O0E8 CA 01 FB 004 CALLS #1, FORMAT_ODS1_DATE_VALUE : 
069 cB OF 049 PUSHAB P.AFD : 1273 
AO AA FB 0049 CALLS #i, DUMPS AD ; 
26 A2 OF 00498 PUSHAB 38(IDENT AREA) + 1276 | 
OOE8 CA 01 FB 0495 CALLS #1, PEARY 5081 DATE_VALUE : 
000000006 60 0 FB 004A CALLS #0, DUMPSBCANK_CINE : 1275 
06CO CB 9F OO4AA PUSHAB P.AFE + 1276 
000000006 00 01 FB OO4A CALLS #1, DUMPSPUT_LINE ; 
7E 63 9A 0048 MOVZBL (MAP_AREA), =(SP) + 1278 | 
06c8 CB 9F 00488 PUSHAB P.AFG 3 
6A 08 FB 004BC CALLS #2, DUMPSPUT_FAO : 
7E 01 AS 9A 004BF MOVZBL 1(MAP VAREA) . “=(SP) + 1282 | 
7E 04 As 3¢ 004¢ MOVZWL 4(MAP"AREA), =(SP) : 
7E 02 Ad 3C 004C MOVZWL 2(MAP“AREA), -(SP) : 
O6EE CB OF 004CB PUSHAB P.AFH™ : 
6A FB OO4CF CALLS #4, DUMPSPUT_FAO : 
7E 06 A3 9A 00402 MOVZBL 6(MAP_AREA) ,~-(SP) + 1284 
0722 CB 9F 00406 PUSHAB P.AF : | 
6A 02 FB O04DA CALLS #2, DUMPSPUT_FAO ; | 
7E 07 A3 9A 00400 MOVZBL x (MAP VAREA) . “=(SP) : 1286 
0748 CB 9F 0041 PUSHAB P.AF ; 
6A 02 FB 004E5 CALLS #2, DUMPSPUT_FAO_ : 
54 08 A3 9A 00468 MOVZBL 8(MAP_AREA),~R4 ~ : 1288 | 
54 DD O04EC PUSHL Rs : 
0773 CB 9F O04E PUSHAB : 
6A 02 FB O04F CALLS on  SUMPSPUT _FAO : 
7E 09 AS 9A O04F MOVZBL 9 (MAP_AREA) ,~-(SP) : 1290 
0796 CB 9F 004F9 PUSHAB P.AFL F 
6A 02 FB O04FD CALLS #2, DUMPSPUT _FAO_ ; 
000000006 00 seiyts of 4 ett CALS” par UMPSPUT_LINE : aed E 
52 OA _A3 9E 00508 MOVAB Toins), P : 1292 E 
50 OA A344 3E OOSOF 308:  MOVAW 10(MAP‘AREA)CRGJ, RO : 159 | E 
50 32 D1 0514 CMPL = P._- RO : E 
1€ 00517 BGEQU 3{s : E 
50 02 A 3¢ 0519 MOVZWL 2(P), RO > 1297 | E 
51 62 9A 0510 MOVZBL (P), R1 : E 
51 51 10 78 005 ASHL #16, Ri, R1 : | ia 
6140 9F 09 4 PUSHAB (RISCROS : E 
7E 01 A2 9A 00527 MOVZBL 1(P), -<(SP) : | a 
6E 6 0528 INCL (SP) : E 
07DC cB F 00520 PUSHAB P.AFO ; E 
A : FB 00531 CALLS #3, DUMPSPUT_FAO ; E 
2 4 ( 0 ADDL2 #4. P : 1 8 E 
000000006 90 BS fe 90389 sis: EARLS abe DUMPSBLANK LINE £1801 
9 O1FE 4] 3C $373 MOV2WL STOCRTD =(SP) : 1303 | 


; Routine Size: 


1363 bytes, 


50 


Routine Base: 


O7FB oF 
i 
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DUMPSHE ADER 1B-Sep-1964 01:50:28 YANe11 BLiss-52_v4.0-742. Page 50 
1207 1308 1 END 
1208 130 0 ELUDOM 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 


; Elapsed ftaee 01:55. X 


36 
; Lexemes/CPU-Min: 30837 
3 a Used: 454 pages 
; Compilation Complete 


| 

| 

; Name Bytes Attributes | 
; SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 498 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, Sadho Seg bth 
; SPLITS 185 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
3 Library Statistics | 
es ees a eo ee > Syabe(s ecoccece Pages Processing 
: File Total Loaded Percent Mapped Time 
3 _$255$DUA28:CSYSLIBILIB.L32;1 18619 120 0 1000 00:01.3 | 
: COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:DUMPHEADE/OBJ=OBJ$:DUMPHEADE MSRC$:DUMPHEADE /UPDATE=(ENH$ : DUMPHEADE ) 
; Size: 2498 coge + 3193 data bytes | 
Run Time 0 

| 

| 
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